







BANCOS 
DE DATOS EE 


r i 

r ¡ 

'lli 

' L 

s ¿ 






Director editor: 

Antonio M. Ferrer Abelló. 

Director de producción: 

Vicente Robles. 

Coordinador y supervisión técnica: 

Enrique Monsalve 

Colaboradores: 

Angel Segado 
Casimiro Zaragoza 
Femando Ruíz 
Francisco Ruiz 
Jesús Pedraza 
Juanjo Alba Ríos 
Margarita Caffaratto 
María Angeles Gálvez 
Marina Caffaratto 
Masé González Balandín 
Patricia Mordini 

Diseño: 

Bravo/Lofish. 

Dibujos: 

José Ochoa. 

© Antonio M. Ferrer Abelló 
© Ediciones Ingelek, S. A. 

Todos los derechos reservados. Este libro no puede ser, en parte o totalmente, 
reproducido, memorizado en sistemas de archivo, o transmitido en cualquier 
forma o medio, electrónico, mecánico, fotocopia o cualquier otro sin la previa 
autorización del editor. 

ISBN del tomo: 84-85831-5S-1 
ISBN de la obra: 84-85831-31-4 
l'oluoonriposición: Pérez Díaz, S. A. 

Iili| ii une 1 lóroes, S, A 

D"|uVilto )•<"tal M 4862-1986 

.. i < ..lias, < truiln y Melilla: 380 pts. 



125 Apéndice PASCAL 


3 

















PROLOGO 1 


or razones de espacio nos hemos visto obliga¬ 
dos a dividir el tema de los bancos y bases de 
datos en BASIC y Pascal en dos volúmenes. En 
este segundo y último podrán también seguir to¬ 
dos los programas en los apéndices. 

Al igual que en el anterior volumen iremos 
comentando cada uno de los programas y 
subrutinas necesarios para obtener, tanto en 
BASIC como en Pascal, la gestión de datos me¬ 
diante su introducción, actualización y acceso permanente. 

Quizá considere al seguir las explicaciones que somos dema¬ 
siado repetitivos en algunos casos, pero hemos preferido que en 
todo lugar quedara perfectamente claro lo que el programa pre¬ 
tendía lograr y cómo lo conseguía. Por lo demás, la estructura es 
la misma que la que pudo observar en el primer volumen. 

Y ya sin más preámbulos pasemos a ver todo aquello que nos 
quedó pendiente. 
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ACCESO MEDIANTE CLAVE 



ste tipo de organización nos permite tener ac¬ 
ceso a cualquier registro, tanto por medio de 
una clave como accediendo al enésimo regis¬ 
tro. La búsqueda mediante clave puede ser tam¬ 
bién parcial. Las claves están almacenadas en 
un fichero organizado en árbol binario. 

Comentaremos tres programas: el primero, 
IS_PREPARA, define los dos ficheros; el segun¬ 

do programa, IS_GESTION, nos da la posibili¬ 
dad de insertar nuevos registros, modificarlos, borrarlos o leerlos 
y el último programa, IS_COMPACTA, vuelve a conformar los fi¬ 
cheros eliminando los registros borrados. x 

La lista de campos de los registros del fichero CLIENTES es 
la siguiente: 


CLIENTE 

DIRECCION 

CIUDAD 

TELEFONO 

PREFIJO 

TIPO 


campo alfabético de 31 caracteres 
campo alfabético de 33 caracteres 
campo alfabético de 15 caracteres 
campo numérico de 8 caracteres 
campo alfabético de 4 caracteres 
campo alfabético de 1 carácter 


El primer registro del fichero CLIENTES contiene dos infor¬ 
maciones: la primera indica el número del registro que debe es¬ 
cribirse y la segunda indica cuántos registros se pueden grabar 
en el fichero. 
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La lista de campos del fichero INDICE es la siguiente 

NOMBRE campo alfabético de 31 caracteres 
IZQUIERDO campo numérico de 2 caracteres 
DERECHO campo numérico de 2 caracteres 

El campo izquierdo, si contiene un valor diferente de 0, indica 
que la clave de ese registro va precedida por otra clave. El cam¬ 
po derecho, si contiene un valor negativo, significa que la clave 
de ese registro va seguida por otra clave que se encuentra en el 
registro cuyo número corresponde al valor absoluto del campo 
derecho, cuyo registro se recorrió ya en parte; si contiene un va¬ 
lor positivo, significa que la clave de dicho registro irá seguida 
por la clave que se encuentra en ese número de registro, y, final¬ 
mente, si contiene el valor 0 (NIL) significa que no existen otros 
registros. 


Programa IS—PREPARA 

El programa pregunta cuántos registros serán escritos en el 
fichero como máximo. No siempre sabremos con exactitud dicho 
valor, pero podemos realizar una estimación y aumentarla en un 
20 por 100 por precaución. Si en la utilización nos percatamos de 
haber fallado en las previsiones, podemos generar un fichero más 
amplio siguiendo las instrucciones de la explicación del progra¬ 
ma IS_.COMPACTA. Dicho programa tiene como objeto principal 

recuperar el espacio libre dejado al borrar registros. 

El programa escribe en el primer registro dos informaciones. 
En el primer campo escribimos 2; de hecho, la primera informa¬ 
ción se escribirá en el registro 2. En el segundo campo llevamos 
el número de registros que puede contener el fichero. Luego es¬ 
cribimos todos los registros posibles, con los campos alfabéticos 
vacíos (a excepción del prefijo, que se coloca en 0000) y los cam¬ 
pos numéricos a 0. A continuación abrimos el fichero INDICE y el 
campo del nombre se pone a un valor nulo, mientras que los cam¬ 
pos izquierdo y derecho se ponen a 0, o sea con "NIL”. 

Entonces grabamos un número de registros igual al del fiche- 
n OLIENTES. El programa en BASIC IS_PREPARA está inclujdo 
< n el apéndice reservado al BASIC. Veamos las instrucciones prin- 
i i p. iles: 

140 FILEt="CLIENTES.DAT" 

160 OPEN “R“,1,FILE$,B8 


Abrimos el fichero CLIENTES.DAT declarándolo de tipo alea 
lorio. El registro contendrá, como máximo, 88 caracteres. 

170 INPUT "¿DE CUANTOS REGISTROS ESTARA 
COMPUESTO EL FICHERO?";ULTIMO 

180 PRIMEROS 

190 FIELD 1,2 AS PRIMERO*,2 AS ULTIMO* 

Después de haber pedido al usuario cuántos podrán ser los 
registros del fichero indicamos las características del registro me¬ 
diante un FIELD; en este caso, estará constituido por dos campos 
con dos caracteres cada uno de ellos. Este es el primer registro, 
que nos indica el número del siguiente registro a grabar y cuán¬ 
tos registros podrá contener el fichero como máximo. 

200 LSET PRIMERO*=MKI*(PRIMERO) 

210 LSET ULTIMO*=MKI$¡ULTIMO! 

Mediante estas instrucciones transferimos al buffer (zona de 
memoria reservada para admitir los datos del fichero) los conte¬ 
nidos de las variables PRIMERO y ULTIMO. Son necesarias las ins¬ 
trucciones MKI$ para convertir un dato numérico en una cadena. 
A riesgo de ser pesados, repetimos que irucciores LSET 

son totalmente necesarias; si, por ejemplo, escribimos PRIME- 
RO$=MKI$(PRIMERO) la instrucción será admitida por el BASIC, 
pero los datos no serán llevados al registro ni tampoco al fichero. 
¡No lo olvidemos! 

220 PUT 11,1 

Escribimos a continuación el primer registro del fichero en la 
forma siguiente: 

230 FIELD 1,31 AS CLIENTE*.33 AS DIRECCION*, 

15 AS CIUDAD», 4 AS TELEFONO»,4 AS PREFIJO*, 

1 AS TIPO* 

Declaramos las características de los sucesivos campos del fi¬ 
chero CUENTES: 

250 LSET CLIENTE*=“" 

Dejamos vacío el espacio destinado a contener el campo del 
cliente; a continuación siguen otras instrucciones para inicializar 
adecuadamente los demás campos. 
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320 FOft n= 2 TO ULTIMO+1 
330 PüT #1,XZ 
340 NEXT XX 

Activa un bucle de instrucciones que graba los registros decla¬ 
rados por el usuario, estando adecuadamente inicializado cada 
campo del registro. Después de haber cerrado el fichero CLIEN¬ 
TES se abre el fichero INDICE.DAT, en donde se grabarán los re¬ 
gistros con los campos oportunamente inicializados. 

400 OREN "R",2, H INDICE.DAT",35 

410 FIELO 2,31 AS NOMBRE*,2 AS IZQUIERDO*,2 AS DERECHO* 

Se abre un fichero de tipo aleatorio constituido por tres 
campos. 

420 LSET NOMBRE* 3 "" 

430 LSET IZQUIERD0Í=MKI*(0) 

440 LSET DERECHQ* 3 MKIt(0) 

Los tres campos del registro se inicializan de forma adecuada. 

450 F0R XX=I T0 ULTIMO 
460 PUT #2, XX 
470 NEXT XX 

En el fichero se graba un número de registro igual al valor 
contenido en la variable ULTIMO, que es, en la práctica, el indica¬ 
do por el usuario. 

El programa Pascal denominado IS_PREPARA está incluido 

en el apéndice reservado al lenguaje Pascal; vamos a comentar 
también las instrucciones principales. 

REWRITE{cliente,' cliente.dat’ ); 

WRITE(’¿de cuantos ficheros estara compuesto el Fichero 13 :’): 

READLN(ultimo); 

Después de haber abierto el fichero se pide al usuario el nú¬ 
mero de registro del fichero para almacenarlo en la variable UD- 
TIMO. El Pascal tiene la posibilidad de declarar varios tipos de re¬ 
gistros en el mismo fichero utilizando la palabra clave CASE en 
la declaración del registro correspondiente; obsérvese, a tal pro¬ 
pósito, la declaración del tipo “CLI" en el programa IS_PREPARA 
antes citado. 



prifflero:=2; 

aaxurio:=ultiso+l; 

PUT(cliente); 

PUT(cliente); 

Los dos campos del registro se inicializan, respectivamente, 
con 2 y con el valor proporcionado por el usuario; las instruccio¬ 
nes PUT graban los registros en disco. 

cliente: 3 ”; 
dirección: 3 ”; 
ciudad: 3 ; 
telefono: 3 !); 
pref:jo: 3 ’0000’; 
tipo: 3 ’ ’; 

Todos los campos están puestos a 0 o vacíos. 

F0R X:=l T0 ultimo DO PUT(cliente); 

Se graba un número de registros igual a los declarados por 
el usuario. Después del cierre del fichero irán las instrucciones si¬ 
guientes: 


REWRITE 
WITH indice A 
DO BE5IN 

nombre: 3 ”; 

izquierdc:=0; * 

derecho: 3 !); 

F0R x:=0 T0 ultimo+1 DO PUT(indice); 

END; 

GLOSE¡indi ce.LOCK); 


oue abren el fichero INDICE, el cual contendrá un número de re¬ 
gistros igual al contenido por la variable ULTIMO; cada registro 


Programa IS—GESTION 

El programa se realizó según las normas de la programación 
estructurada, subdividiéndolo en numerosas subrutinas. El núcleo 
fundamental del programa está reducido al mínimo. Un menú su- 


10 


11 


ficientemente explicativo permite la elección entre varias opcio¬ 
nes, cada una de las cuales hace uso de varias subrutinas El pro- 
gramaprincípal se encarga de abrir el fichero INDICE y el fichero 
OLIEN TES y de almacenar, en la variable ACTUAL, el número del 
primer registro a grabar, y en la variable ULTIMO, el número de 
los registros existentes en el fichero. 

El programa está incluido en el apéndice reservado al BASIC 
con la denominación IS—GESTION; pasamos a comentar las ins¬ 
trucciones principales. 

140 OREN "R",1,"CLIENTES.DAT",88 

Abrimos el fichero CLIENTES.DAT declarándolo de acceso 

aleatorio; cada uno de sus registros podrá contener hasta 88 ca¬ 
racteres. 


180 FIELD 1,2 ñS ACTUAL*,2 AS ULTIMO* 

190 GOSUB 15000:REM --¡LECTURA CLIENTE/1 
200 ACTUAL%=CVI(ACTUAL*) 


Leemos el primer registro del fichero CLIENTES para almace¬ 
nar en la variable ACTUAL% el número del primer registro a qra- 
bar y en la variable ULTIMO% el número de los registros gue pue¬ 
de contener el fichero. M H 


211 OREN M R",2,“INDICE.DAT",25 

Abrimos el fichero INDICE.DAT declarándolo de acceso alea- 
teres Cada Un ° ^ SUS registros podrá con tener hasta 35 carac- 


230 GOSUB 800:REM ->MENU 

240 0N QUEQUIERE GOSUB 2000,4000,6000,9000 


n - ^ ed , em , os el . control a la subrutina MENU, que nos permite ele¬ 
gir una de las cinco funciones. Si se da la respuesta 1, el progra- 

^n C 9 nnn á ® C 5 nt [ o1 a la subrut ina que se inicia con la instruc¬ 
ción 2000, si se da la respuesta 2, el programa cederá el control a 
la subrutina que se inicia a partir de la instrucción 4000 y así su¬ 
cesivamente. ' y 


250 IF 0UEQUIEREO9 THEN GOTO 220 
270 CLOSE 1 
280 CLOSE 2 
290 END 


Si a la solicitud del menú respondemos con el valor 9, se ce- 
i rarán los dos ficheros y acabará el programa; de no ser así, se vi¬ 
sualizará el menú. 

El programa IS_GESTION está incluido en el apéndice reser¬ 

vado al lenguaje Pascal; comentaremos las instrucciones prin¬ 
cipales. 

RESET(índice,’ indice.dat’); 

RESET (cliente, ’cl i ente, dat’); 

Abrimos tanto el fichero INDICE como el fichero CLIENTES. 

SEEK(cliente,1); 

GET(cliente); 

actual:=cliente A .pri®ero; 

ul t imo: =cl i ente - ''. max i rao; 

Leemos el primer registro del fichero CLIENTES; ello nos per¬ 
mite almacenar en ACTUAL el número del primer registro a gra¬ 
bar, y en ULTIMO, el número de registros que puede contener el 
fichero. 

REPEAT 

aenu; 

CASE gue_quiere 0F 

’INcarga; 

’2’:lectura; 

’3’ :para_r,oabre; 

’4’modificación; 

’5’¡borrado; 

END; 

Habrá comprendido ya que basándose en la respuesta dada 
se llamará una de las cinco funciones. 

UNTIL que_quiere=’9’; 

CLOSE (indice.L0CK); 

CLOSE(cliente.L0CK); 

END. 

Si a la solicitud del menú respondemos con el valor 9, se cie¬ 
rran los ficheros y se termina el programa. 

En la descripción de las demás subrutinas seguiremos el or¬ 
den indicado en el menú. 
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Subrutina CARGA 

Después de borrar la pantalla se visualizará el número del pri¬ 
mer registro que se grabará. Esto puede ser interesante cuando, 
al reanudar la carga, queramos saber cuántos registros hemos car¬ 
gado ya y, por consiguiente, poder evaluar cuánto tiempo se em¬ 
pleará para cargar el resto. 

Si estamos en la fase de carga avanzada, será útil saber cuál 
fue el último registro cargado y comprobar si la operación se rea¬ 
lizó de forma correcta. A continuación,'el control se cede a la 
subrutina CLAVE, que tiene como objeto buscar en el fichero 
INDICE el nombre del cliente. 

En un fichero de acceso mediante clave es importante que 
no existan claves idénticas, porque si existieran nos sería imposi¬ 
ble distinguirlas; por ello rechazaremos durante la carga las cla¬ 
ves que existan ya. Al entrar en el bucle de instrucciones en don¬ 
de se solicitan los datos del cliente, dicho bucle terminará cuando 
se responda con “zzzz” a la solicitud del nombre del cliente. 

Si existe espacio en el disco se pedirán, a través de la subru¬ 
tina TECLADO, los datos correspondientes al nombre, ciudad, nú¬ 
mero de teléfono y prefijo. Luego el registro se graba sobre el dis¬ 
co en el mismo lugar. Finalmente, el control se cede a la subrutina 
ACT—NUDO, que se encarga de escribir en el fichero INDICE. Se 
actualiza el primer registro del fichero CLIENTES para el almace¬ 
namiento del número del próximo registro a grabar. 


Subrutina ACT^NUDO 

El objeto de esta subrutina es insertar la clave en orden as¬ 
cendente en el fichero CLIENTES. La primera información se es¬ 
cribe en el registro 1 y los punteros izquierdo y derecho se po¬ 
nen a cero. Para las sucesivas informaciones se examina el árbol 
desde el comienzo y se compara el contenido de la variable NO¬ 
MINATIVO con el contenido de la variable NOMBRE. Pueden ve¬ 
rificarse dos casos: que el contenido de la variable NOMINATIVO 
sea mayor que el de la variable NOMBRE o bien que el de NO¬ 
MINATIVO sea inferior al de NOMBRE. 

En la primera circunstancia (NOMINATIVO>NOMBRE) pue¬ 
den verificarse, a su vez, dos casos: si el puntero derecho contie¬ 
ne un valor mayor que 0, se continuará la búsqueda a partir del 
nudo indicado por éste. Si, por el contrario, el puntero derecho 
contiene un valor negativo o el valor 0, se almacenará NOMINA¬ 
TIVO en el nudo apuntado por 'ACTUAL” y, además, se actualiza¬ 
rá el nudo apuntado por "P”. 

En el segundo caso (NOMINATIVO<NOMBRE) pueden veri¬ 


ficarse también los dos casos: si el puntero izquierdo contiene un 
valor diferente de 0, se seguirá la búsqueda a partir del nudo in¬ 
dicado por él y si contiene el valor 0, se almacenará NOMINATI¬ 
VO en el nudo apuntado por la variable “ACTUAL”, mientras que 
se actualizará el nudo apuntado por "P” Hay que destacar que el 
puntero izquierdo está puesto a cero mientras que el puntero de¬ 
recho contenga un valor negativo. Veamos con más detalle esta 
subrutina. 

Se introduce en el programa IS—GESTION, en donde ocupa 
las líneas 12000 a 12540. Vamos a comentar las instrucciones prin¬ 
cipales: 

12040 HECH0=Ü 

12050 IF ACTUALX=2 THEN LSET SI*=MK1$<0)¡LSET DE$= 

HK.I$(0) ¡LSET N0$=N0MINATIV0$:PUT#2.2:GOTO 12520 

Si se tiene que grabar el primer nudo, es decir, la raíz del ár¬ 
bol, se ponen a 0 los dos punteros, se escribe el registro y se hace 
una nueva entrada desde la subrutina. De no ser así, se tendrá: 

120BO NUhEROÍ=PX 

12090 GOSUB 16000:REM —>LECTURA INDICE 

12100 IF NOMINATIV0$>N0$ THEN 60T0 12300 

Después de haber posicionado de forma adecuada la varia¬ 
ble P%, se da comienzo a un bucle de instrucciones para la bús¬ 
queda del nudo en donde ha de insertarse el nuevo NOMINATI¬ 
VO. En caso de que el NOMINATIVO sea “mayor" que el nudo ac¬ 
tual se cederá el control a la instrucción 12300. Si es "menor" que 
el almacenado en el nudo, se tendrá: 

12110 IF CVKSIOOO THEN P7.=CVI(SI$>:G0T0 12500 

Si el puntero izquierdo contiene un valor diferente de 0, obli¬ 
gamos a que P% tome el valor del puntero izquierdo, y si HECHO 
sigue siendo igual a 0, volvemos a recorrer el árbol; si no es así, 
se tendrá: 


12130 LSET SI*=MKI*(ACTUAL7.) 

12140 GOSUB 16500:REM —>ESCRITURA INDICE 

Actualizamos el nudo apuntado por P% y lo escribimos en dis¬ 
co, con lo que se tendrá: 

12145 NUHEROX^ACTUALX 

12146 GOSUB 16000:REM ~>LECTURA INDICE 

12147 LSET N0*=N0MINATIVOt 


14 


15 


12150 LSET SI*=NKI*(0) 

12160 LSET DE$=HKI$(-PX) 

12165 60SUB 16500:REM —>ESCRITURfl INDICE 
12510 IF HECH0=0 THEN GOTO 12080 
12520 REH 

12530 ACTUALX=ACTUAU+l 
12540 RETURN 

Actualizamos, después de haberlo leído a partir del disco, el 
nudo apuntado por ACTUAL% (observe cómo se carga el punte¬ 
ro derecho). Luego se vuelve a escribir el registro en disco, se ac¬ 
tualiza el contador de los registros y se realiza una nueva entrada 
de la subrutina. 

Nos queda todavía examinar el caso en el que el "nominati¬ 
vo” tenga un valor mayor que el nudo recorrido, y para ello ten¬ 
dremos que examinar las instrucciones 12300/12500 del apéndice. 

12310 IF CVI(DE$)>0 THEN PX=CVI(DE*):G0T0 12500 

Si el puntero derecho contiene un valor mayor que 0, lleva¬ 
mos a P% el puntero derecho y recorremos el nudo con una ite¬ 
ración del ciclo o de otro modo: 

12330 MX=CVI(DE$) 

12340 LSET DE*=MKI*(ACTUALA) 

12350 G0SUB 16500 

Actualizamos y escribimos en disco el nudo apuntado por P%, 
aunque no antes de haber almacenado en M% el puntero derecho 
de dicho nudo, y luego: 

12355 NUMER0X=ACTUAL7. 

12356 60SUB 16000:REN —>LECTURA INDICE 
12360 LSET N0í=NCMINATIVQ$ 

1236“ LSET DE$=WU$(MX) 

12370 LSET S!1=HKI$<0) 

12380 5CSUB 16500:REM -ESCRITURA INDICE 



hecho:=FALSE; 

IF actual=2 

THEN BE5IN {si primer registro) 
nombre:=nominativo; 
izquierdo:=0; 
derecho:=0; 

SEEK(indice,2); 

PUT(índice); 

END 

En el caso de que se tenga que grabar el primer nudo, es de¬ 
cir, la raíz del árbol, se pondrán a 0 los dos punteros, se escribirá 
el registro y se hará una nueva entrada de la subrutina; de no 
ser así: 

ELSE BEGIN 

p:=2; 

REPEAT 

SEEK(indice.p); 

6ET(indice); 

IF nominativa>cliente 
THEN BEGIN 

Después de haber cargado la variable “P” con el valor 2, se 
da comienzo a un bucle de instrucciones para la búsqueda del 
nudo en donde insertar el nuevo "nominativo". En el caso de que 
este último sea “mayor” que el nudo actual, se ejecutan las ins¬ 
trucciones siguientes: 

IF derecho>0 
THEN p:=derecho 

Si el puntero derecho contiene un valor mayor que 0 lleva¬ 
mos a "P” este valor y leemos el nudo con una nueva entrada en 
el ciclo o, de otro modo: 


Actualizamos el nudo apuntado por ACTUAL% después de ha¬ 
berlo leído a partir del disco y lo volvemos a escribir después en 
disco. 

El procedimiento ACT—NUDO está incluido en el programa 
IS—GESTION del apéndice reservado al lenguaje Pascal. Como es 
habitual, pasamos a comentar las instrucciones principales: 


ELSE BEGIN 

hecha:=TRUE; 
m:=derecho; 
derecho:=actual¡ 
SEEK(indi ce, p); 
PUT(indice); 
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Actualizamos y escribimos en el disco el nudo apuntado por 
“P”, no antes de haber almacenado en "M" el puntero derecho de 
ese nudo y luego: 

SEEKÍindice,actual); 
derecho:=u; 
izquierdo:=0; 
nombre:^nominativo; 

PUT(indice); ^ 

END; 

END 

Actualizamos el nudo apuntado por ACTUAL. 

Nos queda por examinar el caso en el que el "nominativo" ten¬ 
ga un valor menor que el nudo recorrido: 

ELSE BEGIN 
IF izquierdoOO 
THEN p:=izquierdo; 

Si el puntero izquierdo contiene un valor diferente de 0, lle¬ 
vamos a "P" este valor y volvemos a recorrer el árbol: 

ELSE BEGIN 

hecho:=TRUE; 
izquierdo:=actual; 

SEEK(indi ce,p >; 

RUT(indice); 

Actualizamos el nudo apuntado por "P" y lo escribimos en dis¬ 
co y luego: 

SEEK(indi ce,actual); 
izquierdo:=0; 
derecho:=-p; 
nombre:=nofflinativo; 

PUT(Índice); 

END; 

END; 

Actualizamos el nudo apuntado por “P"; observe cómo se car¬ 
ga el puntero derecho. 

ÜNTIL hecho; 


Se saldrá del bucle solamente si la variable HECHO se pone 
i mi VERDADERO. 

actual:=actual+1; 

END; 

Se actualiza el contador de registros y de salidas de la subru- 

lina. 

El programa CLAVE tiene también un funcionamiento sencillo: 
;:i se encuenta el "nominativo”, se pondrá a “verdadero" la varia¬ 
ble booleana ENC y se toma de PROXIMO el nudo que sigue; fi¬ 
nalmente se realiza una nueva entrada de la subrutina. De otro 
modo: 


ELSE IF derechos THEN j:=derecho 
ELSE j:=0: 


END; 


Si el “nominativo” a buscar es mayor que el existente en el 
nudo examinaremos el siguiente nudo solamente si el puntero de¬ 
recho contiene un valor mayor que 0 y, de no ser así, se sale de 
la subrutina. 

Se sale del bucle de instrucciones en el caso de que las va¬ 
riables ENC o FIN estén puestas a "verdadero”. En el caso de que 
se encuentre el “nominativo”, se leerá el registro para ponerlo a 
disposición del usuario. 


Subrutina LECTURA 

t 

Permite leer un cierto número de registros y visualizarlos en 
la pantalla. Se piden los números del primer y del último registros 
a leer. El procedimiento LISTA tiene como objeto encontrar el ené¬ 
simo registro, a condición de que se haya grabado. Si el registro 
no existe, se activará la variable FIN. 

Se sale de la subrutina cuando se pulsa la tecla <Escape>, 
cuando se ha visualizado el último registro solicitado o cuando se 
han visualizado todos los registros existentes en el fichero. 

Esta subrutina se comentó ya en el volumen anterior. 


Subrutina LISTA 

Sirve para leer el enésimo registro con tal de que esté gra¬ 
bado. Si el registro no se ha grabado (cuando INICIO>=ACTUAL 
e INICIO<2) se activará la variable FIN. 
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Subrutina NOMBRE 

Permite leer los clientes mediante el campo de clave, o sea, 
con el nombre. La subrutina, por medio de la subrutina TECLADO, 
solicita desde qué nombre hasta cuál otro queremos leer. A con¬ 
tinuación el control se cederá a la subrutina CLAVE, que se en¬ 
carga de buscar el primer "nominativo”. 

En el caso de búsqueda de claves parciales, por ejemplo par¬ 
tiendo de las claves que comienzan con "b”, al no encontrar la cla¬ 
ve se activará la variable FIN y se cederá el control a la subrutina 
BUSQUEDA, que se posiciona en el último registro encontrado. Se 
entra luego en un bucle en el que se visualiza el registro CLIEN¬ 
TES y se cede el control a la subrutina BUSQUEDA que se encar¬ 
ga de buscar el siguiente registro. Se sale de la subrutina cuando 
se pulsa la tecla <Escape>, cuando se visualiza el último “nomi¬ 
nativo” o cuando se visualizaron todos los registros existentes en 
el fichero. 

La subrutina está incluida desde la instrucción 6000 a la ins¬ 
trucción 6540 del programa IS_GESTION en el apéndice reserva¬ 

do al lenguaje BASIC. Veamos las instrucciones principales: 

6090 PRINT "NOHBRE DEL PRIMER CLIENTE:" 

6100 SW=3 
6110 XP0S=32 
6120 YP0S=20 

6130 GGSUB 1000:REM —>TECLAD0 
6140 PARTIDA$=ALFA$ 

Mediante la subrutina TECLADO se solicita el nombre del pri¬ 
mer cliente para almacenarlo en la variable PARTIDA$ De forma 
análoga se solicita el nombre del último cliente a visualizar y se 
almacena en la variable TERMINO^ 

6235 NOMINATIVOÍ=PARTIDA$ 

6240 60SUB 13000:REM —>CLAVE 
6250 IF FIN=1 THEN GOTO 6500 

Con la ayuda de la subrutina CLAVE buscamos el “nominati¬ 
vo"; si no lo encontramos cedemos el control a la subrutina BUS¬ 
QUEDA que nos permite hallar el nudo anterior. Si se encuentra 
el "nominativo", se tendrá: 

6260 G0SUB 500:REM -—>B0RRAD0 PANTALLA 
6270 G0SUB 10000:REM —BASCARA 
6280 G05UB 11000:REM ~>VISUALIZACI0N 


Se visualiza el registro en la pantalla. 

6287 G0SUB 13500:REM —>CERCA 
6290 YP0S=20:XP0S=1 

6300 G0SUB 15800:REM —>P0SICI0NA EL CURSOR 
6310 PRINT "CESPACIO) PARA SEGUIR,<ESC> 

PARA TERMINAR:" 

6320 G0SUB 15900:REM —TLECTURA CARACTER 

Se lee el siguiente registro y luego se da la posibilidad al 
usuario de observar la pantalla y decidir si se verán los siguien¬ 
tes registros o si se produce una nueva entrada en la subrutina. 

El procedimiento PARA_NOMBRE se incluye en el progra¬ 

ma IS—GESTION en el apéndice destinado al lenguaje Pascal. Vea¬ 
mos las instrucciones principales: 

G0TGXY(0,20); 

WRITEÍ’noiíbre del primer cliente :'); 

sw:=’3’; 

x_pos:=32; 

y_pos:=20; 

teclado; 

partida:=alfa; 

Mediante el procedimiento TECLADO se solicita el nombre 
del primer cliente para almacenarlo en la variable PARTIDA. De 
forma análoga se solicita el nombre del último cliente a visualizar 
y se almacena en la variable TERMINO. 

no.ninativo:=partida; 

clave; 

cual :=proxiaiD; 

IF fin 
THEN BEGIN 
búsqueda; 
fin:=FñLSE; 

END; 

Con la ayuda del procedimiento CLAVE buscamos el “nomi¬ 
nativo” y si no lo encontramos cedemos el control al procedimien¬ 
to BUSQUEDA, que nos permite volver al nudo anterior. Si se en¬ 
cuentra el “nominativo": 
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REF'EAT 

borradojantalla; 

mascara; 

vi sualizacion; 

Se visualiza el registro en la pantalla. 

búsqueda; 

WRITE{’<ESPñC10> para continuar,’, 

’<ESC> para terminar’); 

READ(respuesta); 

Se lee el siguiente registro dando al usuario la posibilidad de 
observar la pantalla y luego decidir si quiere ver los registros si¬ 
guientes o acabar y entrar de nuevo en la subrutina. 

UNTIL <respuesta=CHR$(27)) 

0P(presente=0) 

ORÍ indice A .nombre>termino) 

El bucle termina por indicación del usuario (cuando pulsa la 
tecla <Escape>), cuando se ha visualizado el último cliente soli¬ 
citado o, finalmente, cuando se han acabado los registros en el fi¬ 
chero de clientes. 


Subrutina BUSQUEDA 

Esta subrutina lee los registros del fichero INDICE y del fiche¬ 
ro CLIENTES que corresponden al contenido de la variable CUAL. 
En caso de que el puntero izquierdo sea diferente de 0 se conti¬ 
nuará la búsqueda basándose en su contenido. La variable CUAL, 
al final de la subrutina, se fija de modo que apunte al registro si¬ 
guiente. 

La subrutina BUSQUEDA está incluida en el apéndice destina¬ 
do al lenguaje BASIC, incorporada en el programa IS_GESTION, 
del que ocupa las instrucciones 13500/13820. 

13540 FUERA=0 

13550 REM 

13560 EST0).=ABS(PROXIMO'/.) 

13565 NUMERO).=EST0), 

13570 G0SUB 15000:REM —>LECTURA CLIENTE 


Después de haber inicializado la variable FUERA se lee un re¬ 
gistro del fichero INDICE. El número del registro leído depende 
del valor absoluto contenido en la variable PROXIMO%, porque 
puede contener también valores negativos. 

13580 IF CVKSIÍIOO AND PROXIMOX>=0 THEN 
PROXIMOiriCVI(SIt)¡GOTO 13800 

Se almacena el siguiente nudo a condición de que el puntero 
izquierdo no esté puesto a 0 y de que la variable PROXIMO% no 
contenga un valor negativo; luego se vuelve a efectuar la lectura, 
o de otro modo: 

13590 FUERA=1 

13600 PROXIMO).=CVI (DE$) 

Se almacena el siguiente nudo y se realiza una nueva entrada 
en la subrutina. 

El procedimiento BUSQUEDA está incluido en el programa 
IS—GESTION del apéndice destinado al lenguaje Pascal. Veamos 
las instrucciones principales: 

fuera:=FALSE; 

REF'EAT 

presente:=ABS(cual); 

SEEK(índice,presente); 

GET(indice); 

SEEK ícliente,presente); . 

GET(cliente); 

Después de haber inicializado la variable FUERA se comien¬ 
za un bucle de instrucciones en donde se lee un registro de IN¬ 
DICE y el registro CLIENTES correspondiente. El número del re¬ 
gistro depende del valor absoluto de la variable PROXIMO, ya que 
puede contener valores negativos: 

IF (izquierdoOO) 

AND (cual>=0) 

THEN cual:=izquierdo 

Se lee el siguiente nudo a condición de que el puntero iz-‘ 
quierdo contenga un valor diferente de 0 y la variable PROXIMO 
contenga un valor mayor o igual a 0. 
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ELSE BEGIN 
fuera:=TRUE¡ 
cual:=derecho; 

END; 

UNTIL fuera; 

Se halla el siguiente nudo y se sale del procedimiento. Hay 
que destacar el hecho de que se sale del procedimiento solamen¬ 
te cuando la variable booleana FUERA está puesta a "Verdadero”. 


Subrutina MODIFICACION 

El acceso mediante clave nos permite modificar cualquier re¬ 
gistro. Después de haber borrado la pantalla se solicita, mediante 
la subrutina TECLADO, el nombre del cliente a modificar. La sub¬ 
rutina CLAVES se encarga de buscar dicho "nominativo" en el 
fichero INDICE. Si no se encuentra el “nominativo" se da la indi¬ 
cación correspondiente en la pantalla y se sale de la subrutina. Si 
encontró el "nominativo" será posible modificar todos los campos 
a excepción del correspondiente al nombre del cliente. El cursor 
se posiciona al comienzo del campo; si el operador pulsa la tecla 
<Escape> podrá modificarlo (escribirá los datos nuevos y con¬ 
cluirá con <Return>). Finalmente, el registro se volverá a escribir 
en el disco exactamente en la misma posición. 

Debería resultar intuitivo que, al no poder modificar el campo 
NOMBRE, el fichero índice se actualizará con el contenido del cam¬ 
po de nombre y luego, al modificarlo, no nos será posible volver¬ 
lo a encontrar. Si, por ejemplo, modificamos el nombre "casa” en 
“casado”, no lograremos volver a encontrar "casado". Alguno de 
nuestros lectores se preguntará qué tendrá que hacer si se equi¬ 
voca en la clave durante la carga de los datos. La respuesta es 
que tendrá que suprimir la clave "casa” e insertar la clave “casa¬ 
do” escribiendo también los demás datos. 


Subrutina BORRADO 

Anteriormente dijimos que en nuestro propósito de no com¬ 
plicar los programas no hemos utilizado la técnica de recuperar 
inmediatamente el espacio libre dejado por los borrados; será pre¬ 
cisamente el programa IS_COMPACTA el encargado de recupe¬ 
rar el espacio. Después del borrado de la pantalla se pedirá la cla¬ 
ve de búsqueda mediante la subrutina TECLADO. 


El control se cederá a la subrutina CLAVE. Si no se encontra- 

1.1 el nombre se dará la indicación correspondiente en la pantalla 
y se saldrá de la subrutina. 

Si se encuentra la clave se visualizará el registro en la panta- 

11.1 Luego se solicita la confirmación de borrado al usuario. Si este 
ultimo responde con "S" o con “s”, el campo TIPO se modifica en 
"C” y luego el registro se graba en disco en la misma posición. 


Subrutina LECTURA-INDICE 

Sirve para leer de manera aleatoria un registro del fichero 
INDICE. 


Subrutina ESCRITURA-INDICE 

Escribe, con la ayuda de la variable NUMERO%, un registro 
en el fichero INDICE. 


Programa IS—COMPACTA 

Antes de utilizar este programa es necesario hacer algunas 
operaciones preliminares: cambiar el nombre del fichero CL1EN- 
TES.DAT por CLIENTES.VIE y llamar al programa IS_PREPARA 
que establece el nuevo fichero CLIENTES.DAT. 

En BASIC haremos RENAME CLIENTES.DAT CLIENTES.VIE. En 
Pascal utilizaremos la función Cjambio del Fjichero y luego escri¬ 
biremos CLIENTES.DAT, CLIENTES.VIE. Luego llamaremos a 

IS_PREPARA para establecer el nuevo fichero CLIENTES.DAT y 

el fichero INDICE.DAT. Durante esta fase se pueden dimensionar 
los ficheros de manera diferente. 

El programa está incluido en el apéndice destinado al lengua¬ 
je BASIC con el nombre de IS—COMPACTA. Veamos las instruc¬ 
ciones principales: 

140 OREN "R“,2,"CLIENTES.DftT“,88 

150 OREN ”R“,1,"CLIENTES.VEC",88 

Se abren los dos ficheros declarándolos de tipo aleatorio. 

175 6ET #2.1 

Se lee el primer registro del fichero VIEJOS para conocer el 
número de los registros allí grabados y el primer registro del fi- 
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chero CLIENTES para conocer cuántos registros puede contener 
el fichero. 

200 OPEN "R",3,"INDICE.DAT",35 

Se abre el fichero INDICE declarándolo de tipo aleatorio. 

210 X%=CVI(ULTIMO*) 

220 YX=CVI(ATC$) 

Almacenamos en X% el número de registros que puede con¬ 
tener el fichero y en Y% el número del primer registro a grabar. 

240 ACTUALA 

Después de haber inicializado las variables ACTUAL% y Z%, 
iniciamos un bucle de instrucciones que termina después de ha¬ 
ber leído el último registro del fichero VIEJOS. 

280 SET H,zx 

290 IF TIFIOT" THEN 60T0 320 

Se lee un registro del fichero VIEJOS y se lleva la indicación 
de borrado a visualizarse en la pantalla, se incrementa la variable 
Z% y se cede el control a la instrucción 480. De otro modo: 

330 IF ZX>X$+1 THEN GOTO 500 

Si no hay espacio en disco se da la indicación y se bloquea 
el programa; de otro modo: 

360 LSET CL*=CLI$ 

Se llevan al buffer del fichero CLIENTES los diversos campos 
utilizando instrucciones similares a la indicada. 

450 PRINT CLÍ 

460 NUHER07.=ACTUALX 

465 G0SUB 15500:REfl ->ESCRITURA CLIENTE 

470 G0SU8 12000:REM ->ACT_NUD0 

Se graba el fichero CLIENTES y se llama la subrutina 
ACT—NUDO que se comentó ya en el programa IS_GESTION. 

475 ZX=ZX+1 

480 IF ZKYX+l THEN SOTO 260 


Si hay otros registros, se cede el control a la instrucción 260; 
do otro modo: 

620 NUMER0X=1 

625 G0SUB 15000:REM —>LECTURA CLIENTE 
630 LSET ACT$=MKI$(ACTUALX) 

640 6QSUB 15500:REM —>ESCRITURA CLIENTE 

Grabamos la situación de los registros válidos en el primer re- 
i listro del fichero CLIENTES. 

650 CL0SE 1 
660 CL0SE 2 
670 CL0SE 3 

Cerramos los tres ficheros. 

En el apéndice destinado al lenguaje Pascal hemos incluido 
,-1 programa IS—COMPACTA. Destacamos las instrucciones prin¬ 
cipales: 

RESET(viejo,'cliente.vie’)j 
RESETíindice,’ indice.dat’ ); 

RESETlcliente,'cliente.dat’); 

Se abren los tres ficheros. 

SEEK (cliente, 1); 

GET(cliente); 

SEEK(viejo,1); t 

GET <viejo); 

ultiiso:=diente A . máximo; 
y:=viejc A .primero; 

Se lee el primer registro del fichero de clientes para conocer 
el número de los registros allí grabados. Se almacena en la varia¬ 
ble ULTIMO el número máximo de registros efectuando la lectura 
correspondiente desde el primer registro del fichero CLIENTES. 
Luego, después de haber inicializado las variables ACTUAL y Z, 
se da comienzo a una serie de instrucciones que terminan cuan¬ 
do se ha leido el último registro del fichero VIEJOS. 

GET(viejo); 
actual:=2; 
z:=2; 
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REPEAT 
WITH viejo* 

DO BE6IN 

IF tipo=’C’ 

THEN WRITELN(cliente:15,’ borrado’) 

Se lee un registro del fichero VIEJOS; si este último lleva la in¬ 
dicación de borrado se señalará en la pantalla. De otro modo: 

■s,. 

ELSE BE6IN 
WRITELN(cliente:15); 
diente*: =viejo A ; 

SEEK(cliente,actual); 

PUT(cliente); 

nouinativo:=viejo*.cliente; 
actjwdo; 

ENE; ' 

En la pantalla se visualiza el nombre del cliente y luego se 

cede el control al procedimiento ACT_NUDO, que comentamos 

con anterioridad. 

IF actual-Dultimo 
THEN BEGIN 

WRITELN(’hay’,actual-1,’ registros’, 

'activos en un Fichero que los’, 

’prevee ’,ultimo,’!’); 

WRITELN('no puedo seguir.’); 

WRITELN(’pul se <RETURN>’); 

READLN; 

EXIT(program); 

END; 

Si no hay espacio para grabar otros registros se da la indica¬ 
ción correspondiente en la pantalla y se bloquea la continuación 
del programa; de otro modo: 


GET(vieja); 
z:=:+l; 

END; (de la with viejo) 
UNTIL z>=y; 


Se lee el registro siguiente y si hay otros registros a procesar, 
• vuelve al bucle; de otro modo: 

SEEK(cliente,1!; 

GET(cliente); 

cliente*.prino:=actual; 

SEEK (di ente, 1); 

PUT(cliente); 

Se actualiza el primer registro del fichero CLIENTES para re¬ 
cordar el siguiente registro a grabar. 

CLOSE(viejo); 

CLOSE(indice); 

CLOSE(cliente); 

Cerramos los tres ficheros. 

Después de los oportunos controles será posible borrar el fi- 
< :hero CLIENTES.VIE. En el lenguaje BASIC haremos ERASE CLIEN¬ 
TES. VIE; llamaremos a la función Rjetirada del Fjichero, escribire¬ 
mos CLIENTES.VIE y responderemos “Y” a la solicitud de confir¬ 
mación del borrado. 
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ACCESO HASH 



sta organización nos permite el acceso a cual¬ 
quier registro, tanto mediante una clave como 
con el número de registro. No es posible reali¬ 
zar una búsqueda en clave parcial. Las claves 
están almacenadas en un fichero que contiene 
solamente punteros. 

Describiremos solamente tres programas: el 
primero, HASH_PREPARA, establece los dos fi¬ 

cheros; el segundo, HASH_GESTION, nos per¬ 


mite cargar los datos, modificarlos, borrarlos o leerlos, y el último 


programa, HASH_.COMPACTA, vuelve a crear los dos ficheros 


eliminando los registros borrados. La disposición del registro tipo 
del fichero CLIENTES es como sigue: 


CLIENTE 

DIRECCION 

CIUDAD 

TELEFONO 

PREFIJO 

TIPO 

COLISION 


campo alfabético de 31 caracteres 
campo alfabético de 33 caracteres 
campo alfabético de 15 caracteres 
campo numérico de 8 caracteres 
campo alfabético de 4 caracteres 
campo alfabético de 1 carácter 
campo numérico de 2 bytes 


El primer registro del fichero CLIENTES contiene dos infor¬ 
maciones: la primera indica el número del primer registro que 
debe escribirse y la segunda indica cuántos registros se pueden 
grabar en el fichero. Los registros del fichero INDICE contienen 
un solo campo, de tipo numérico, que indica en dónde se encuen- 
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tran los datos del cliente que tiene el número hash igual al núme¬ 
ro de dicho registro. 


Programa HASH—PREPARA 

Este programa pide cuantos registros, como máximo, se es¬ 
cribirán en el fichero. 

No siempre sabemos con exactitud dicho valor. Podemos ha¬ 
cer una estimación y aumentarla en un-20 por 100 por precaución. 
Si en la utilización nos percatamos de haber superado las previ¬ 
siones, podemos generar un fichero más amplio siguiendo las ins¬ 
trucciones que se darán en la explicación del programa 

HASH_.COMPACTA. El programa almacena en el primer registro 

dos informaciones. En el primer campo se escribe un 2; de hecho, 
la primera información se escribirá en el segundo registro. En el 
segundo campo incluiremos el número de registros que puede 
contener el fichero. 

Luego se escriben todos los registros posibles con los cam¬ 
pos alfabéticos vacíos (a excepción del prefijo, que se pone en 
0000) y los campos numéricos a 0, mientras que el campo COLI¬ 
SION se pone a -1. Luego se escribe el fichero INDICE; todos sus 
registros contienen el valor -1. El número de los registros será 
igual al valor de DIVISOR, que podrá variarse según las dimen¬ 
siones del fichero. El programa en BASIC HASH—PREPARA está 
incluido en el apéndice dedicado al lenguaje BASIC. Veamos las 
instrucciones principales: 

140 FICHERO» 2 ' 1 CLIENTE. DAT 1 ' 

150 DIVÍS0R=7 

160 OREN “R",1j FICHEROS,90 

Hemos considerado que 7 es el valor a asignar a la variable 
DIVISOR. A continuación se abre el fichero CLIENTES.DAT decla¬ 
rándolo de tipo "ALEATORIO” y determinando que los registros 
contendrán, como máximo, 90 caracteres. 

170 INPUT '¿DE CUANTOS REGISTROS ESTARA COMPUESTO 
EL FICHERO?";ULTIMO* 

180 PRIMERD=2 

190 FIELO 1.2 AS PRIMERO».2 AS ULTIMO» 

Después de haber solicitado al operador cuántos podrán ser 
los registros del fichero, indicamos las características del primer 
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11 ¡gistro mediante la instrucción FIELD; en este caso, estará cons- 
iMuido por dos campos, cada uno de ellos de dos caracteres. 

200 LSET PRIMERÜ»=NKI*(PRIMERO) 

210 LSET ULTIMO»-MKI»(ULTIMO+!5 

Mediante estas instrucciones transferimos al buffer, posición 
Ue memoria reservada para admitir los datos de los ficheros, los 
contenidos de las variables PRIMERO y ULTIMO. Son necesarias 
las instrucciones LSET y MKI$ para transferir al buffer un dato nu¬ 
mérico en el formato de cadena. 

220 PUT #1,1 

Escribimos el primer registro del fichero. 

230 FIELD 1,31 AS CLIENTE»,33 AS DIRECCION»,15 AS 
CIUDAD.4 AS TELEFONO»,4 AS PREFIJO,! AS COLISION» 

Declaramos las características de los sucesivos registros del 
fichero CLIENTES. 

250 LSET CLIENTE»= n " 

■ Dejamos vacío el espacio destinado a admitir el campo 
CLIENTE, luego siguen otras instrucciones para inicializar adecua¬ 
damente los demás campos. Recordemos también que en el ac¬ 
ceso aleatorio se tiene que utilizar la instrucción LSET para trans¬ 
ferir los datos a los campos del registro. 

320 FGR n =2 T0 ULTIMO+1 

330 PUT 12,XX 

340 NEXT n 

Se activa un bucle de instrucciones que graba los registros 
declarados por el usuario, estando cada campo del registro ade¬ 
cuadamente inicializado. Después de haber cerrado el fichero 
CLIENTES se abre el fichero INDICE.DAT, en donde se grabarán 
los registros, todos ellos puestos a -1. 

410 FICHER0l="INDICE.DAT" 

420 OREN "R",2,FICHERO»,2 

430 FIELD 2,2 AS INDICE» 

Se abre un fichero de tipo aleatorio constituido por un solo 
campo de dos caracteres. 
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435 INDICEX--1 

440 LSET INDICEt=MKI$UNDICEX) 

El único campo del registro se pone al valor -1. 

450 FOR X=1 10 DIVISOR 
460 RUT 12,2 
470 NEXT X 

En el fichero se graba un número de registros igual al valor 
contenido en la variable DIVISOR; en nuestro ejemplo 7 registros. 
A continuación, se cerrará el fichero. 

El programa HASH_PREPARA está incluido en el apéndice 

destinado al lenguaje Pascal. Pondremos de manifiesto las instruc¬ 
ciones principales. 

REWRITEí el i ente,’el i ente.dat’ ); 

WRITE('¿de cuantos registros estara coupuesta’, 

’el fichero?’); 

READLN(ultimo); 

Después de haber abierto el fichero se pregunta al usuario 
cuántos serán los registros del fichero para su almacenamiento en 
la variable ULTIMO. El lenguaje Pascal tiene la posibilidad de de¬ 
clarar diversos tipos de registros en el mismo fichero con el em¬ 
pleo de la palabra clave CASE en la declaración del registro; hay 
que observar, a tal propósito, la declaración del tipo “CLI" en el 
programa HASH_PREPARA antes citado. 

primero: 3 ?; 

max i Bio: =ul t i ¡no+1; 

RUT(cliente); 

RUT (el i ente); 

Los dos campos del registro se inicializan, respectivamente, 
con 2 y con el valor proporcionado por el usuario; mediante PUT 
se graban los registros en disco. 

el i ente: = ’’; 
dirección:; 
ciudad:=”; 
telefcno:=0; 
prefijo:=’0000’; 
tipo: 3 ’ ’; 
colisión: 3 -!; 


Todos los campos se ponen a 0 o están vacíos y, en particu- 
l.ii, el campo de colisión se pone a -1. 

FOR >¡:=2 T0 ultifio+1 DO PUT(diente); 

Se graba un número de registros igual a los declarados por 
id usuario. Después del cierre del fichero hay que seguir las ins¬ 
trucciones que se indican a continuación. 

REWRITE(índice,’indice.dat’); 

indice A :=-l; 

FOR x: 3 0 T0 di visor-1 DO PUT(indi ce); 

CL0SE <indice,L0CK); 

Se abre el fichero INDICE, que contendrá un número de re¬ 
gistros igual al contenido de la variable DIVISOR; cada registro 
está constituido por un solo campo que contiene el valor -1. 


Programa HASH_GESTION 

Este programa se ha realizado siguiendo algunas normas de 
la programación estructurada, subdividiéndolo en numerosas 
subrutinas. Se ha reducido al mínimo el núcleo fundamental del 
programa. Un menú suficientemente explicativo permite la elec¬ 
ción entre diversas opciones, haciendo uso cada opción de varias 
subrutinas. 

El programa principal sirve para abrir el fichero INDICE y el 
fichero CLIENTES y para almacenar, en la variable ACTUAL, el nú¬ 
mero del primer registro a grabar, y en la variable ULTIMO el nú¬ 
mero de los registros existentes en el fichero. La variable DIVI¬ 
SOR es determinante para el cálculo del número hash y se colocó 
al comienzo del programa para que se pueda identificar con faci¬ 
lidad y luego modificarse. El programa está incluido por comple¬ 
to, tanto en el apéndice destinado al lenguaje BASIC como en el 
apéndice del Pascal, con el nombre de HASH_.GESTION. 

Comentemos las instrucciones principales en BASIC. 

140 OREN "RV,"CLIENTES.DAT',90 
150 OREN "R%2,"INDICE.DAT",2 
160 DIVIS0R=7 
170 NUMERO?. 3 1 

180 FIELO 1,2 AS ACTUALÍ,2 AS ULTIM0Í 
190 60SUB 15000:REM -XLECTURA CLIENTE/! 
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Después de haber abierto los dos ficheros se lee el primer re¬ 
gistro del fichero CLIENTES para almacenar el primer registro a 
grabar y el número de los registros que constituyen el fichero. 

200 ACTUALZ=CVI(ACTUAL*) 

210 ULTIM07.=CVI (ULTIMO*) 

Las dos variables ACTUAL% y ULTIMO% nos indican, respec¬ 
tivamente, cuál será el primer registro a grabar y cuántos regis¬ 
tros contiene el fichero. Para transformar una variable de cadena 
en una variable numérica se utiliza CVI.'' 

230 GOSUB 800:REM ->MENU 

240 0N OUEQUIERE GOSUB 2000,4000.6000,8000,9000 
250 IF QUEQUIERE09 GOTO 220 

La instrucción 240 cede el control a la subrutina que se inicia 
con la instrucción 2000 si la variable OUEQUIERE contiene el va¬ 
lor 1, con la instrucción 4000 si dicha variable contiene el valor 2 
y así sucesivamente. En el caso de que OUEQUIERE contenga un 
valor mayor que 5, el control se cederá a la instrucción 220 si el 
valor es diferente de 9 y, de no ser así, el programa se cerrará. 

270 GLOSE 1 
280 GLOSE 2 
290 END 

Veamos las instrucciones principales del programa en Pascal. 

RESET(indice,’Índice.dat ! ); 

RESET(cliente,’cli ente.dat’ ); 

SEEK(cíiente,1); 

GET(cliente); 

actual:=cliente A .primero; 

uItimc:=cliente A .máximo; 

Después de la apertura de los dos ficheros se almacenan las 
informaciones relativas al primer registro a grabar y al número de 
los registros del fichero. 

REPEftT 

menú; 

CASE que_quiere 0F 
7 T: carga; 


’2’:lectura¡ 

’3 7 ¡nombre; 

’4’:modiíicacion; 

’5 7 ¡borrado; 

END; 

UNTIL que_quiere=’9 7 ; 

GLOSE (indice.L0CK); 

CLOSEÍcliente.LOCK!; 

Consideramos estas instrucciones tan evidentes que creemos 
innecesario comentarlas. 


Subrutina CARCA 


Después de borrar la pantalla se visualizará el número del pri¬ 
mer registro a grabar. Ello puede ser interesante cuando al rea¬ 
nudar la carga queramos saber cuántos registros hemos cargado 
ya y, luego, valorar cuánto se empleará para cargar el resto. Si se 
está en una fase de carga avanzada será útil saber si la operación 
se realizó de forma correcta, con la visualización del último regis- 
I ro grabado. 


Subrutina CALCULO 


Esta subrutina determina el número Hash del contenido de la 
variable NOMINATIVO. 

Todos los caracteres de la variable se convierten en su valor 
binario. Los valores binarios de los caracteres que ocupan la po¬ 
sición impar en la variable NOMINATIVO se añaden en la varia¬ 
ble "X", mientras que los demás se suman en la variable "Y”. En 
R1 pondremos el resto de la división de la variable "X" por 256 y 
en la variable R2 el resto de la división de la variable "Y” por 256. 
El contenido de la variable “Z” viene determinado por la fórmula 
(R2*256) + R1. 

La variable HASH contendrá el resto de la división de la va¬ 
riable "Z” por el valor de DIVISOR. Si constatamos que hay dema¬ 
siadas colisiones aumentaremos el valor de DIVISOR, tratando de 
utilizar un número primo. 

La subrutina en BASIC está incluida en el apéndice corres- • 
pondiente, en el programa HASH_GESTION, desde la instrucción 
12000 a la instrucción 12140. 
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i2040 X=0:Y=0 

12050 FOR N=1 TO LEN<NOMINATIVO$) 

Después de poner a O las variables "X" e "Y" se da comienzo 
a un bucle en donde se examina cada carácter individual conte¬ 
nido en la variable NOMINATIVO$ 

12060 C=A5CíMID*(N0MINflTIV0*,N,1)) 

En “C” tenemos el valor binario del enésimo carácter de la va¬ 
riable NOMINATIVO^ 

12070 IF N-{INT(N/2)Í2)=0 THEN Y=Y+C ELSE X=X+C 

Si examinamos las posiciones pares de la variable NOMINA- 
TIVO$, la variable “C” se sumará a la variable "Y” y, en caso con¬ 
trario, se sumará a la variable “X”. 

12080 NEXT N 

Se desactiva el bucle cuando se han examinado todos los ca¬ 
racteres de la variable. 

12090 R1=X-(INT(X/256)1256) 

12100 R2=Y-(INT(Y/256)1256) 

La variable R1 contiene el resto de la división de "X" por 256, 
mientras que la variable R2 contiene el resto de la división de "Y" 
por 256. 

12110 Z=R2*256+R1 

12120 HASH=INT(Z-(INT(Z/DIVIS0R)«DIVISOR)) 

12130 IF HASH=0 THEN HASH=DIVIS0R 

La variable HASH contiene el resto de la división de “Z” por 
el valor de DIVISOR y, en el caso de que el valor sea 0, la variable 
HASH tomará el valor contenido en la variable DIVISOR. 

El procedimiento CALCULO está incluido por completo en 
el apéndice dedicado al lenguaje Pascal, en el programa 

HASH_GESTION. Nos limitaremos a comentar las instrucciones 

principales: 

x:=0; 

y:=0; 

FOR n:=l 10 LENGTH(nansinativo) 

DO BE6IN 


Las variables "X" e "Y” se ponen a 0 y luego se inicia una se- 
lie de instrucciones que se repetirá un número de veces igual al 
número de caracteres contenidos en la variable NOMINATIVO. 

c:=GRDí nonti nativo! ni); 

IF ODDin! THEN x:=x+c 
ELSE y:y+c; 

Cada carácter individual se transforma en su valor binario y 
::e suma a la variable “X" si se examina un carácter que ocupa po- 
;aciones pares de la variable NOMINATIVO y, de no ser así, se 
::ama a la variable "Y". Después de haber examinado todos los ca¬ 
rnet eres de la variable NOMINATIVO se tendrá: 

rl:=x-<(x DIV 256)1256); 

r2:=y-((y DIV 256)1256); 

z:=r2»256+rl 


En R1 se almacena el módulo 256 de la variable "X" y en R2 
el módulo 256 de la variable "Y”, mientras que en la variable “Z" 
tenemos el valor de la variable R2 multiplicada por 256 más el va¬ 
lor de la variable Rl. 

hash:=TRUNC(z-!(z DIV divisorUdivisor)); 

IF hash=0 THEN hash:=divisor; 

La variable “Z” se divide por el valor contenido en la variable 
DIVISOR y el resto de la división se almacena en la variable HASH; 
en el caso de que esta última contenga el valor 0 se tomará el va¬ 
lor contenido en la variable DIVISOR. 


Subrutina BUSQUEDA 

La subrutina BUSQUEDA en BASIC está incluida en el apén¬ 
dice desde la línea 13000 a la línea 13140 del programa 
HASH_GESTION. Veamos las instrucciones principales: 

13040 FIN=0 

13050 S0SUB 15200¡REM —>LECTURA HASH 
13060 CUAlí=CVI(HflSHÍ) 

13070 REM 

13080 IF CUALX=-1 THEN FIN=1:RETURN 
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Leemos el fichero INDICE mediante el contenido de la varia¬ 
ble HASH. Si el registro contiene el valor -1, ello significa que 
no existe dicho "nominativo" y se realiza una nueva entrada en la 
subrutina poniendo a 1 la variable FIN. De otro modo: 

13090 NUMERQ2=CUALX 

13100 FIELD 1,31 AS OLÍ,33 AS INÍ.15 AS CI$, 

4 AS TEí,4 AS FRt,1 AS TI$,2 AS CD$ 

13110 60SUB 15000:REM —>LECTURA CLIENTE 

13120 IF NGMINATIVG$=CL$ THEN RETUftN "" 

Se lee el fichero CLIENTES y se compara si el nombre del 
cliente corresponde al almacenado en NOMINATIVO^ en cuyo 
caso se realiza una nueva entrada en la subrutina. Hay que des¬ 
tacar el hecho de que la variable FIN se mantiene en el valor 0. 

53130 CUALX=CVI(C0í) 

13140 GOTO 13070 

Si los valores no están en correspondencia en la variable 
CUAL% se sitúa el contenido de la variable CO$ y se reenvía el 
proceso a la instrucción 13080. El procedimiento BUSQUEDA está 
incluido en el apéndice dedicado al lenguaje Pascal dentro del 
programa HASH_GESTION. 

•fin: =FALSE; 

SEEK(índice.hash); 

6ET(Índice); 

cual:=indice A ; 

REPEAT 
IF cual=-l 
THEN fin:=TRUE 

Leemos el fichero INDICE mediante la variable HASH; si el re¬ 
gistro contiene -1 ello significa que dicho nominativo no existe, 
por lo cual salimos del procedimiento poniendo a 1 la variable 
FIN; de no ser así tendremos: 

ELSE BE6IN 

SEEK(eliente,cual); 

GET(cliente); 

IF noijinativoOciienteC el iente 
THEN cual:=ciiente A .colisión; 

END; 


Se lee el fichero CLIENTES mediante la variable CUAL y se 
. •(nnprueba si el nombre del cliente es igual al contenido en la va- 
n.ible NOMINATIVO; en tal casóle realiza un reenvío del proce¬ 
dimiento. 

UNTIL fin OR (nominativo=cliente.cliente) 

Se vuelve a leer el registro a no ser que la variable FIN esté 
puesta a 1 o se haya encontrado el "nominativo". 


Subrutina NOMBRE 

Esta subrutina solicita al usuario el nombre de un cliente, lo 
I msca en el archivo y, finalmente, lo visualiza en la pantalla. 

La subrutina está incluida por completo en el programa 

IIASH_GESTION en el apéndice destinado al lenguaje BASIC, en 

las instrucciones 6000/6290. Como es nuestra costumbre, comen- 
i aremos las instrucciones principales: 

6070 PR1NT "NOMBRE DE CLIENTE 
6080 SH=3 
6090 XP0S=32 
6100 YPQS=20 

6110 G0SUB 1000: REM —>TECLAD0 
6120 N0MINATIV0$=ALFAí 

Se solicita el nombre del cliente mediante la subrutina TE¬ 
CLADO. < 

6125 60SUB 12000:REM —>CALCUL0 HASH 
6130 IF LEN(NOMINATIVOS)=31 THEN GOTO 6150 
6140 N0MINATIV0$=N0Í1INATIV0S+" ":G0T0 6130 
6160 G0SUB 13000:REM —>BISQUEDA 

Se calcula el número Hash correspondiente a dicho "nomina¬ 
tivo” y luego se cede el control a la subrutina BUSQUEDA, que se 
encarga de encontrar el cliente. En el caso de que no lo encuen¬ 
tre la variable FIN se pondrá a 1 y se avisará al usuario de que 
no existe dicho nombre. 

6180 60SUB 500:REM ->B0RRA PANTALLA 

6190 G0SUB 10000:REM —>MASCARA 
6200 60SUB 11000:REM —>VISUALIZACIDN 
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A estas instrucciones, que no precisan ser comentadas, siguen 
otras para permitir al usuario observar con comodidad el registro 
visualizado en la pantalla. 

En el apéndice destinado al lenguaje Pascal se incluyen las 
instrucciones correspondientes al procedimiento NOMBRE del 
programa HASH_GESTION. Veamos las instrucciones principales: 

WRITEEnombre del cliente 

sh:=’3’ 

x_pos:=32; 

y_pas:=20; 

teclado; 

no»inativo:=aHa; 

calculo; 

búsqueda; 

Se solicita mediante el teclado el nombre del cliente, luego 
el control se cede al procedimiento CALCULO, que tiene el obje¬ 
to de calcular el número Hash y después el control se transfiere 
al procedimiento BUSQUEDA, que lee en el fichero el registro de¬ 
seado. En el caso de que no se encuentre dicho "nominativo" se 
pondrá a 1 la variable booleana FIN y se dará la indicación co¬ 
rrespondiente al usuario. 

borrado_pantalla; 

mascara; 

visualizacion; 

Tenemos la certeza de que habrá comprendido el objeto de 
estos tres procedimientos. 

SOTOXY(0,20); 

HRITE(’pulse <RET'JRN> para continuar'!; 

READLN; 


Subrutina MODIFICACION 

El acceso hash nos permite modificar cualquier registro. Des¬ 
pués de borrar la pantalla se solicita, mediante la subrutina TE¬ 
CLADO, el nombre del cliente a modificar. El control se cede a la 
subrutina CALCULO, que determina el código Hash, y luego se lla¬ 
ma a la subrutina BUSQUEDA. Si no se encontrara el "nominativo” 
se daría la indicación correspondiente en la pantalla y se saldría 


, | t . la subrutina. Si el "nominativo” fue encontrado será posible mo- 
, lili car todos los campos a excepción del correspondiente al nom¬ 
bre del cliente. 

El cursor se posiciona al comienzo del campo y si el usuano 
pulsa la tecla <Escape> podrá modificarlo (con la escritura de los 
nuevos datos y concluyendo con <Return>). Finalmente, el regis- 
i io se volverá a escribir en disco exactamente en la misma po¬ 
sición. 

Esta subrutina se comentó ya con anterioridad; la encontrará 
incluida en el programa HASH—GESTION del apéndice. Resulta 
i 'vidente por qué no se puede modificar el campo NOMBRE: el nú¬ 
mero Hash se calculó basándose en el contenido de dicho campo 
y si lo modificamos el número hash será diferente y, por consi¬ 
guiente, ya no nos será posible encontrarlo, pues habremos rea¬ 
lizado un direccionamiento a un registro diferente Si, por ejem¬ 
plo, modificamos el nombre “casa" por "casado , no lograremos en¬ 
contrar "casado”. Algunos de nuestros lectores se plantearán la in¬ 
terrogante de qué tendrán que hacer si escriben de forma inco- 
: recta la clave durante la operación de carga dejos datos. La res¬ 
puesta es que tendrán que borrar la clave “casa y proceder a la 
introducción de la clave “casado", escribiendo también las demás 
informaciones. Esta operación resulta elemental. 


Subrutina BORRADO 


Podemos marcar los registros que queremos borrar. En nues¬ 
tra exposición anterior hemos dicho que para no complicar los 
programas no hemos empleado la técnica de recuperar inmedia¬ 
tamente el espacio que queda libre como consecuencia de los bo¬ 
rrados. El programa HASH—COMPACTA se encargará de la re¬ 
cuperación de este espacio. 

Una vez borrada la pantalla se solicita el nombre del cliente. 
El control se cede a la subrutina CALCULO, que determina el nú¬ 
mero Hash. Luego se pasará a la subrutina BUSQUEDA, que pro¬ 
cederá a buscar el "nominativo” en el fichero CLIENTES. Si no se 
encontrara el “nominativo” se .dará la indicación correspondiente 
en la pantalla y se saldrá de la subrutina. Si se encuentra la clave 
se visualiza el registro en la pantalla. Luego se solicita la confir¬ 
mación del borrado al usuario. Si este último responde con “S" o 
"s", el campo TIPO se modificará en "C" y el registro se grabará 

en disco en la misma posición. 

Esta subrutina, que fue comentada con anterioridad, esta in¬ 
cluida en el programa HASH—GESTION. 
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Programa HASH—COMPACTA 

Antes de ejecutar este programa son necesarias algunas ope¬ 
raciones preliminares: cambiar el nombre del fichero CLIEN- 
TES.DAT por CLIENTES.VIE y llamar al programa HASH_PREPA¬ 

RA, que establece el nuevo fichero CLIENTES.DAT. En el BASIC 
haremos RENAME CLIENTES.DAT, CLIENTES.VIE. En el lenguaje 
Pascal utilizaremos la función Cjambio del Fjichero y luego escri¬ 
biremos CLIENTES.DAT, CLIENTES.VIE. 

Se llama al programa HASH—PREPARA para establecer el 
nuevo fichero CLIENTES.DAT y el fichero INDICE.DAT. Durante 
esta fase es posible dimensionar los ficheros de manera diferente. 
Las dos operaciones deben realizarse en la secuencia indicada. 

El programa HASH—COMPACTA abre los ficheros VIEJOS, 
CLIENTES e INDICE. El fichero VIEJOS contiene los registros que 
deben eliminarse por borrado. El fichero CLIENTES, al final del 
programa, contendrá solamente los registros no borrados. 

El programa está incluido en el apéndice destinado al lengua¬ 
je BASIC con el nombre de HASH—.COMPACTA. Veamos las ins¬ 
trucciones principales: 

150 OPEN "R",1,"CLIENTE.VEC",90 

160 OPEN "R",2,"INDICE.DAT”,2 

170 OPEN "R",3,"CLIENTES.DAT”,90 

Se abren los tres ficheros declarándolos de tipo aleatorio. 

190 GET #1,1 

200 JX=CVI (J$) 

Se lee el primer registro del fichero VIEJOS para conocer el 
número de los registros allí grabados. 

230 GET 13,1 

240 ULTIM0Z=CVI(ULTIMO*) 

Del nuevo fichero CLIENTES se toma el número de registros 
que puede contener y dicho valor se almacena en la variable UL- 
TIMO%. Luego, después de inicializar las variables ACTUAL%, "K”, 
“I” y "J", iniciamos un bucle de instrucciones que termina después 
de haber leído el último registro del fichero VIEJOS. 

280 GET II,J 

290 IF TItO" " THEN PRINT CLI;" BORRADO":J=J+1: 

GOTO 490 


Se lee un registro del fichero VIEJOS y se lleva la indicación 
i h • borrado a la presentación visual en la pantalla, incrementán- 
i f >:e la variable "J” y cediendo el control a la instrucción 490. De 
n|i o modo: 

300 K=K+1:PRINT CU 

310 N0t1INATIV0$=CL$ 

320 GQSUB 12000:REM -->CALCUL0 

Se visualiza en la pantalla el nombre del cliente, y se cede el 
control a la subrutina CALCULO, que determina el número Hash; 
esta subrutina se comentó ya en la presentación del programa 

NASH_GESTION y también la hemos incluido en el programa 

11ASH_COMPACTA. 

340 GET #2,HASH 
350 HH$=HASH$ 

360 LSET C0$=HftSH$ 

370 LSET HASH$=MKII(ACTUALX) 

380 PUT #2,HASH 

Del fichero INDICE se lee el registro que corresponde al va¬ 
lor contenido en la variable HASH y luego se actualiza el campo 
COLISION del fichero CLIENTES y también se actualiza y se gra¬ 
ba el registro INDICE. Se actualizan los demás campos del fichero 
CLIENTES, volviéndolos a copiar uno a uno desde el fichero VIE¬ 
JOS; se tendrá: 

460 PUT #3,ACTUAL?. 

470 ACTUALX=ACTUAL7.+1 
480 J=J+1 

Se graba el fichero CLIENTES y se actualizan los contadores 
de registro. 

490 REM 
500 GET «1,J 

510 IF ACTUAüKULTIMOX THEN GOTO 560 

Se lee el registro sucesivo y, si hay todavía espacio en disco, 
el control se cede a la instrucción 560; de no ser así, se propori 
ciona la indicación de dicho inconveniente y se cierra el pro¬ 
grama. 
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560 REM 

570 IF J<U THEN GGTG 290 

Si hay otros registros se cede el control a la instrucción 290, 
y de otro modo: 

590 LSET ACTUAl$=HKI$(fiCTUALZ-1) 

600 LSET ULTINOMKIÍ(ULTIMOZ) 

610 PUT #3,1 

Grabamos la situación de los registros válidos en el primer re¬ 
gistro del fichero CLIENTES. 

630 CL0SE #1 
640 GLOSE #2 
650 GLOSE #3 
660 END 

Cerramos los tres ficheros. 

En el apéndice destinado al lenguaje Pascal hemos incluido 
el programa HASH—COMPACTA. Veamos las instrucciones prin¬ 
cipales: 

RESET (viejo, 'diente, vi e'); 

RESET(Índice,’ indice.dat'); 

RESET (cliente, ’d iente.dat’) ; 

Se abren los tres ficheros. 

SEEKíviejo, 1); 

GET(viejo); 

SEEK(cliente,1); 

GET (el i ente) ; 
ultifno:=e!iente A .®a)iiiEo; 
i ;=viejo A .peinero; 


Se lee el primer registro del fichero CLIENTES para conocer 
el número de los registros allí grabados. Se almacena en'la varia¬ 
ble ULTIMO el número máximo de registros con lectura desde el 
primer registro del fichero CLIENTES. Luego, después de iniciar 
las variables ACTUAL, "K” y "J”, se da comienzo a una serie de ins¬ 
trucciones que terminan cuando se ha leído el último registro del 
fichero VIEJOS. 


GET(viejo); 

actual:=2; 

k:=2; 

REF'EAT 
MITH viejo A 
DO 8E61N 

IF tipo=’C’ 

THEN WRITELN(el i ente:15,’ borrado’) 

$ * 

Se lee un registro del fichero VIEJOS; si este último lleva la in¬ 
dicación de borrado se señala adecuadamente en la pantalla y, 
de otro modo: 

ELSE BE5IN 
k:=k+l; 

WRITELN(cliente:15); 
eliente A .cliente:=cli ente; 
diente A .dirección:=direccion; 
cliente*.dudad:=dudad; 
diente A .teleFonG:=telafono; 
cliente A .preíijo:=preíi jo; 
diente*.tipo:=’ 
nor.inativo:=viejc A . cliente; 
calculo; 

En la pantalla se visualiza el nombre del cliente y luego se 
cede el control al procedimiento CALCULO, que se comeptó con 
anterioridad. 

SEEK(Índice,hash); 

GET(indice); 

eli ente*.col ision¡ = indi ce ; 
indice*:=actual; 

SEEK(indi ce,hash); 

PUT(indice); 

Del fichero INDICE se lee el registro que corresponde al con¬ 
tenido de la variable HASH y luego se actualiza el campo de 
colisión del fichero CLIENTES y se actualiza y graba INDICE. Se 
actualizan los demás campos del fichero CLIENTES, volviéndolos 
a copiar a partir del fichero VIEJOS; se tendrá: 
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SEEKÍcliente,actual); 

PUT(cliente) 
actual:=actual+l; 

END; 

Se graba el fichero CLIENTES y se actualiza el contador de re¬ 
gistros. 

j: = j+1; 

GET < viejo); 

IF actual-Dultimo 

THEN BESIN 

Se lee el registro sucesivo; si todavía está en el fichero se vol¬ 
verá al ciclo y, de no ser así, se dará la indicación oportuna en la 
pantalla y se bloqueará el programa. Si no hay otros registros en 
el fichero VIEJOS, se tendrá: 

SEEKÍcliente,1); 

GET(eli ente); 

diente'. priaiero:=actual; 

SEEKÍcliente,1); 

PUT (cliente); 

Situamos en el primer registro del fichero CLIENTES cuál será 
el registro siguiente a grabar. 

GLOSE (cliente); 

CLOSEíindice); 

GLOSE(viejo); 

Cerramos los tres ficheros. 

Después de las oportunas comprobaciones resulta posible bo¬ 
rrar el fichero CLIENTES.VIE. En BASIC haremos ERASE CLIEN¬ 
TES. VIE; en Pascal llamaremos a la función R)etirada del FJichero, 
escribiremos CLIENTES.VIE y responderemos con "S” a la solici¬ 
tud de confirmación de borrado. 



ACCESO MEDIANTE ARBOL BINARIO 



sta organización nos permite tener acceso a 
cualquier registro tanto por medio de una clave 
como por medio del número de registro. La bús¬ 
queda mediante clave puede ser también par¬ 
cial. Los registros se almacenan con el empleo 
de la técnica del árbol binario. 

Describiremoss tres programas: el primero, 
A T. P REPARA, establece el fichero; el segundo, 
AL_.GESTION, nos permite cargar los datos, 


I,ríos, modificarlos o borrarlos, y el último programa, AL_COM- 
l'ACTA, vuelve a estructurar el fichero eliminando los registros 
l„ urados. La lista de campos de los registros del fichero CLIEN¬ 


TES es como sigue: 


CLIENTE campo alfabético de 31 caracteres 
DIRECCION campo alfabético de 33 caracteres 
CIUDAD campo alfabético de 15 caracteres 
TELEFONO campo numérico de 8 caracteres 
PREFIJO campo alfabético de 4 caracteres 

TIPO campo alfabético de 1 carácter 

IZQUIERDO campo numérico de 2 caracteres 


DERECHO campo numérico de 2 caracteres 


El primer registro contiene dos informaciones: la primera in¬ 
dica el número del registro que debe escribirse y la segunda in¬ 
dica cuántos registros se pueden grabar en el fichero. 
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Programa AL_PREPARA 

El programa pregunta cuántos registros, como máximo, se 
escribirán en el fichero. Si no sabemos exactamente dicho valor, 
podemos realizar una estimación y aumentarla un 20 por 100 por 
precaución. 

Si luego, en la utilización, nos percatamos de haber superado 
las previsiones podemos generar un fichero más grande siguien¬ 
do las instrucciones que se darán en la explicación del programa 
AL_COMPACTA. Dicho programa tiene como objeto principal re¬ 

cuperar el espacio dejado libre por los borrados de registros. 

El programa AL_PREPARA escribe el primer registro con dos 

informaciones. En el primer campo se escribe un 2 y, de hecho, 
la primera información se escribirá en el registro número 2. En el 
segundo campo incluimos el número de registros que puede con¬ 
tener el fichero. Luego se escriben todos los registros posibles 
con los campos alfabéticos vacíos (a excepción del prefijo, que 
se pone a 0000) y los campos numéricos que se ponen a 0. 

El programa en BASIC AL_PREPARA se incluye en el apén¬ 

dice reservado al lenguaje BASIC. Veamos las instrucciones prin¬ 
cipales: 

140 FICHER0$="CLIENTES.DAT" 

160 OPEN ■RV,FICHERO*,92 

Se abre el fichero CLIENTES.DAT declarándolo de tipo alea¬ 
torio; el registro correspondiente contendrá 92 caracteres como 
máximo. 

170 INPUT '¿DE CUANTOS REGISTROS ESTARA COMPUESTO 
EL FICHERG?";ULTIMO* 

180 PR1MER0=2 

190 FIELO 1,2 AS PRIMERO*,2 AS ULTIMO* 

Después de haber preguntado al usuario cuántos podrán ser 
los registros del fichero indicamos las características del registro 
mediante la instrucción FIELD; en este caso, estará constituido por 
dos campos, teniendo cada uno de ellos dos caracteres. Este pri¬ 
mer registro nos indica el número del siguiente registro a grabar 
y cuántos registros podrá contener el fichero como máximo. 

200 LSET PRIIÍERO*=MKI*(PRIMERO) 

210 LSET ULTIH0t=HKI*(ULTIMO) 

Mediante estas instrucciones transferimos al buffer, posición 
de memoria reservada a los datos del fichero, los contenidos de 
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i , ..nubles PRIMERO y ULTIMO. Son necesarias las ínstruccio- 
II, 1 1,; ;i :T y MKI$ para transferir a un registro un dato numérico en 
, i |, niñato de cadena. 

220 PUT #1,1 

l :. ;cribimos el primer registro del fichero. 

;30 FIELO 1,31 AS CLIENTE*,33 AS DIRECCION*,15 AS 
CIUDAD*,! AS TELEFONO*,# AS PREFIJO*,1 AS TIPC*, 

2 AS IZQUIERDO*.2 AS DERECHO* 

Declaramos las características de los sucesivos registros del 
ll.'hero CLIENTES. 

250 LSET CLIENTE*^" 

Dejamos vacío el espacio destinado al campo CLIENTE; si- 
. 111 ,. 11 otras instrucciones para inicializar adecuadamente los de- 
iii.■í:; campos. 

320 FOR X7.=2 TO ULTIMO+1 

330 PUT #1,X7. 

340 NEXT 11 

Se activa un bucle de instrucciones que graba un número de 
i, •qistros igual al indicado por el usuario, estando adecuadamente 
inicializado cada campo del registro. Finalmente se cierra el fíche¬ 
lo CLIENTES. , . , . 

El programa en Pascal AL—PREPARA está incluido en- el 
apéndice de Pascal. Vamos a comentar las instrucciones princi¬ 
pales. 

REWRITEÍcliente,'cliente.dat'l; 

HRITEt’úde cuantos registros estara coopuesto’, 

’el Fichero?’); 

REñDLN(uitino); 

Una vez abierto el fichero se pregunta al usuario cuántos se¬ 
rán los registros del fichero para su almacenamiento en la varia¬ 
ble ULTIMO. El lenguaje Pascal tiene la posibilidad de declarar di 
versos tipos de registros en el mismo fichero con el empleo de 
la palabra clave CASE en la declaración del registro; hay que des¬ 
tacar, a tal propósito, la declaración del tipo CLI en el programa 
A T. P REPARA antes citado. 
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pri mero:=2; 
aasina:=ulti rd+1; 

PUT (cliente); 

PUT (cliente;; 

Los dos campos del registro se inicializarán, respectivamen¬ 
te, con 2 y con el valor proporcionado por el usuario; las instruc¬ 
ciones PUT grabarán los registros en disco. 

clientes” i 
direccion:= J ’; 
ciudad:; 
telefono:-!}; 
prefijo:=’0000*; 
tipo:=’ ’; 

Todos los campos se quedarán vacíos o puestos a 0. 

FOF; X:=l TO ultimo DO PUT (el i ente); 

Se graba un número de registros igual a los declarados por 
el usuario y el fichero se cerrará. 


Programa ALU3ESTION 

El programa se ha realizado siguiendo algunas normas de la 
programación estructurada, subdividiéndolo en numerosas subru¬ 
tinas. Se redujo al mínimo el núcleo fundamental del programa. 
Un menú suficientemente explicativo permite la elección entre va¬ 
rias opciones, haciendo uso cada opción de varias subrutinas. El 
programa principal se encarga de abrir el fichero CLIENTES y de 
almacenar en la variable ACTUAL el número del primer registro 
a grabar y en la variable ULTIMO el número de los registros exis¬ 
tentes en el fichero. 

El programa en BASIC está incluido en el apéndice corres¬ 
pondiente con el nombre AL—GESTION; procederemos a comen¬ 
tar las instrucciones principales del programa, al mismo tiempo 
que comentaremos las diversas subrutinas siguiendo el orden es¬ 
tablecido en el menú. 

140 OREN "R\i,"CLIENTES.DAT",92 

Abrimos el fichero CLIENTES.DAT declarándolo de acceso 



ili Murió y el registro correspondiente podrá contener 92 carac- 
|*l r:: como máximo. 

180 FIELO 1,2 AS ACTUAL*,2 AS ULTIMO* 

190 G0SUB 15000:REM --'/LECTURA CLIENTE/1 
200 ACTUALX=CVI(ACTUAL*) 

210 ULTIM0X=CVI (ULTIMO*) 

Se lee el primer registro para poder almacenar, en la variable 
III jTIMO%, el número de registros que podrá contener el fichero 
y en la variable ACTUAL% el número del primer registro que se 
i mede grabar. 

220 60SUB 500:REM ——>BGRRADQ PANTALLA 

230 G0SUB 800:REM -—>MENU 

240 ON QUESUIERE G0SUB 2000,4000,6000,8000,9000 

Una vez borrada la pantalla se llama a la subrutina MENU y, 
b, ciándose en la respuesta dada, se cede el control a una de las 
iibrutinas que comienzan con la instrucción 2000, 4000, 6000,8000 
,,' 1000. Al final de cada subrutina se retorna al menú y si en éste 
: ;i • responde con 9 acabará el programa. 

El programa en Pascal está incluido en el apéndice corres- 
I inndiente con el nombre AL—PREPARA y, como es habitual, pro- 
■ •( ¡deremos a comentar las instrucciones principales. 

RESET (diente, 'diente. dat’>; 

Abrimos el fichero CLIENTES.DAT. 

SEEK( el i ente,1); 

GET (diente); 
actual:=diente A .primero; 
ultimo:=cliente A . máximo; 

Leemos el primer registro para poder almacenar, en la varia¬ 
ble ACTUAL, el número del primer registro a grabar y en la va¬ 
riable ULTIMO el número de registros que puede contener el 
fichero. 

REPEAT 

mena; 

CASE qae_quiere QF 
’l’¡carga; 
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’2’:lectura; 

'S’¡nombre; 

’ 4’: modi -f i caci on; 

’5’¡borrado; 

END; 

Cedemos el control al procedimiento MENU y, basándonos 
en la respuesta dada, llamamos uno de los cinco procedimientos. 

UNTIL que_quiere=’9’; 

A no ser que se responda con 9, en cuyo caso terminará el 
programa. 


Subrutina CARGA 

Una vez borrada la pantalla se visualizará el número del pri¬ 
mer registro que será objeto de grabación. Ello puede ser intere¬ 
sante cuando al reanudar la carga queramos saber cuántos regis¬ 
tros hemos cargado ya y luego valorar cuánto se empleará para 
cargar el resto. Si se está en una fase de carga avanzada, será útil 
saber cuál fue el último registro cargado y comprobar si la ope¬ 
ración se realizó de forma correcta. Se entra luego en un bucle de 
instrucciones en donde se solicitan los datos del cliente. El bucle 
termina cuando se responde con “zzzz” a la petición del nombre 
del cliente. El control se cede a la subrutina CLAVE que tiene el 
objeto de encontrar en el fichero CLIENTES el nombre del cliente. 

En un fichero de acceso mediante clave es importante que 
no existan claves idénticas, puesto que no sería posible distinguir¬ 
las, y por ello rechazaremos durante la operación de carga las cla¬ 
ves que existan ya en el fichero. Si hay espacio en disco, el con¬ 
trol se cederá a la subrutina ACT_NUDO, que busca el espacio 

para incluir el cliente y luego, mediante la subrutina TECLADO,, 
se introducen los datos del cliente. Después se escribe el registro 
del nuevo cliente y, finalmente, se actualiza el primer registro del 
fichero CLIENTES, en donde se almacenó el siguiente registro a 
grabar. 

Las descripción de esta subrutina se hizo ya en el primer vo¬ 
lumen y se puso de manifiesto el recurso a la subrutina CLAVE. 


Subrutina ACT-NUDO 

El objeto de esta subrutina es introducir la clave en orden as¬ 
cendente en el fichero CLIENTES.DAT. La primera información se 
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i . i ibe en el registro 1 y los punteros izquierdo y derecho se pon- 
, i,,,n a 0. Para las sucesivas informaciones se examinará el árbol 

l, ;;i le el principio y se comparará el contenido de la variable NO¬ 
MINATIVO con el contenido de la variable NOMBRE. Pueden ve-, 
nli' .irse dos casos: que el valor de la variable NOMINATIVO sea 

m. iyor que el de la variable NOMBRE o que el valor de NOMINA¬ 
TIVO sea inferior al de NOMBRE. 

En el primer caso (NOMINATIVO>NOMBRE) se pueden pro- 
■ lucir dos situaciones: si el puntero derecho contiene un valor ma¬ 
yor que 0 se continúa la búsqueda a partir del nudo indicado por 
• I puntero derecho, y si, por el contrario, el puntero derecho con- 
11 , ,i ie un valor negativo o el valor 0 se almacenará el NOMINATI- 
V( ) en el nudo apuntado por "ACTUAL”; además, se actualizará el 

mido apuntado por "P". 

En el segundo caso (NOMINATIV0<N0MBRE) se pueden te¬ 
nor también dos situaciones: si el puntero izquierdo contiene un 
v.iior diferente de 0 se continuará la búsqueda a partir del nudo 
indicado por el puntero izquierdo, y si dicho puntero contiene el 
valor 0 se almacenará el "nominativo” en el nudo apuntado por la 
/, n ¡able ACTUAL, mientras que el nudo apuntado por "P” será ób¬ 
lelo de actualización. Ha de destacarse que el puntero izquierdo 
< ‘.Miará puesto a 0 mientras que el puntero derecho contenga un 

valor negativo. , 

Esta subrutina está incluida en el programa AL—GESTION que 
lujara en el apéndice y ocupa las instrucciones 1200, a 12540. Pa¬ 
lmos a comentar las instrucciones principales: 


12040 HECH0=0 

12050 ¡F ACTüALS=2 THEN LSET £I$=HKI$ <0):LSET DE*= 
MKI4ÍÜÍ¡GOTO 12520 


Si se tiene que grabar el primer nudo, la raíz del árbol, se pon¬ 
drán a 0 los dos punteros y se hará una nueva entrada de la 
subrutina. De otro modo: 


12060 PV.=2 
12070 F;EM 
120S0 NU1EF;07.=FZ 

12090 EQSUB 15000:RES — .■■LECTURA CLIENTE 
12100 IF OINATIVCt=CL! THEN SOTO 12300 


Después de haber posicionado de forma adecuada la varia¬ 
ble P%, se da comienzo a un bucle de instrucciones para Ja bús¬ 
queda del nudo en donde insertar el nuevo "nominativo”. En el 
caso de que este último sea "mayor" que el nudo actual se cederá 
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el control a la instrucción 12300. Si el nominativo es “menor" que 
el almacenado en el nudo se tendrá: 


12110 IF CVIíSIiK’-O r m P%=CVI<BI$¡;GOTO 12500 


Si el puntero izquierdo contiene un valor diferente de 0 po¬ 
nemos en P% el valor del puntero izquierdo y si HECHO sigue 
puesto a 0 volveremos a recorrer el árbol; de otro modo: 


12130 LSET SI$=MKI$ ÍACTUALS) 

12140 E0SUB 15500:REr —>ESCRITURA CLIENTE 


Actualizamos el nudo apuntado por P%, lo escribimos en dis¬ 
co y luego: 


12145 NUHEROZ-ACTUALZ 

12146 5CEUB 15000:REM —>LECTURft CLIENTE 
12150 LSE T BI*=«K!$(0) 

12160 LSET DE$=!1KIt(-PX! 

12170 GOTO 12500 
12500 REM 

12510 IF HECHO=0 THEN GOTO 12080 
12520 REÍ 1 
12530 RETURN 


Después de haberlo leído a partir del disco actualizamos el 
nudo apuntado por ACTUAL% (destaquemos la forma en que se 
carga el puntero derecho). A continuación, se realiza una nueva 
entrada de la subrutina. 

Nos queda todavía por examinar el caso en el que el "nomi¬ 
nativo” tenga un valor mayor que el nudo recorrido, y para ello 
hay que examinar las instrucciones 12300/12500 del apéndice. 


12310 I c CVI(DESDO THEN F'%=CVI (DES):SCT0 12500 


Si el puntero derecho contiene un valor mayor que 0, pone¬ 
mos en P% el puntero derecho y pasamos al nudo correspondien¬ 
te volviendo a entrar en el ciclo, o de otro modo: 

12330 HX=CVJ (DES) 

12340 LSET DES=MKI$(ACTUAL%) 

12350 60SUB 15500:REM --/ESCRITURA CLIENTE 



Actualizamos y escribimos en disco el nudo apuntado por P%, 
no antes de haber almacenado en M% el puntero derecho de di- 
■ Tu > nudo, y luego tendremos: 

12356 50SUB 15000:REfl -/LECTURA CLIENTE 

12360 LSET DES=MKIS(NX) 

Actualizamos el nudo apuntado por ACTUAL%, después de 
haberlo leído a partir del disco. , 

El procedimiento ACT__NUDO está incluido en el apéndice 
i |i atinado al lenguaje Pascal y, como es habitual, procedemos a 
, omentar las instrucciones principales: 

hecho:=FALSE; 

IF actual=2 

THEN 8E6IN (si primer registro) 
izquierdo:=0; 
derecho:=0; 

END 

En el caso que se tenga que grabar el primer nudo, la raíz del 
irbol, se pondrán a 0 los dos punteros y se realizará una nueva 
entrada de la subrutina, o, de otro modo: 

ELSE BEGIN 

p:=2; 

REPEAT 

SEEK (el i ente,p); 

GET(cliente); , 

IF nominativc>cliente 
THEN BEGIN 

Una vez que se haya cargado en la variable P el valor 2 se 
da comienzo a un bucle de instrucciones para la búsqueda del 
nudo en donde introducir el nuevo “nominativo”. En el caso de 
que este último sea "mayor" que el nudo actual, se ejecutan las ins¬ 
trucciones siguientes: 

IF derecho>0 

THEN p:=derecho 

Si el puntero derecho contiene un valor mayor que 0 pone¬ 
mos en "P" este valor y leemos el nudo, volviendo a entrar en el 
ciclo. De otro modo: 
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ELSE BEGIN 

hecho:=TRUE; 
m: =derecho; 
derecho:=actual; 

SEEK (el i ente,p); 

PUT¡cliente); 

Actualizamos y escribimos en disco el nudo apuntado por "P", 
no antes de haber almacenado en "M” el puntero derecho de di¬ 
cho nudo; luego tendremos: 

derecho:=m; 
izquierdo:=0; 

END; 

END 

Actualizamos el nudo apuntado por ACTUAL. Saldremos del 
bucle solamente si la variable booleana HECHO está puesta a 1, 
es decir, en el caso de que el nudo haya sido objeto de actuali¬ 
zación. 

Nos queda todavía por examinar el caso en el que el "nomi¬ 
nativo” tenga un valor menor que el nudo recorrido: 

ELSE BEGIN 

IF izquierdoOO 
THEN p:=ízquierdo; 

Si el puntero izquierdo contiene un valor diferente de 0 po¬ 
nemos en “P” este valor y volvemos a recorrer el árbol. De otro 
modo: 

ELSE BEGIN 

hecho:=TRUE; 
izquierdo:^actual; 

SEEK(cliente.p); 

PUT(cliente); 

Actualizamos el nudo apuntado por "P” y lo escribimos en dis¬ 
co. Tendremos: 

izquierdo:=0; 
derecho:=-p; 

END; 

END; 


Actualizamos el nudo apuntado por "P". Luego se sale de la 
■mhrutina. 


Subrutina CLAVE 

Esta subrutina tiene como objeto buscar en el fichero CLIEN- 
Tl una clave que corresponda al contenido de la variable NO¬ 
MINATIVO. El árbol binario se recorre desde el principio y se bus- 
, a el NOMINATIVO con el empleo de la técnica que veremos a 
continuación. 

La búsqueda se detiene cuando se encuentra el "nominativo 
n cuando se llega al final del árbol (J=0). La variable FIN nos in- 
, Iica si no se encontró el “nominativo". La variable PROXIMO indi- 
, ,i el último nudo que se recorrió y por ello es de gran utilidad 
■ •II la búsqueda de claves parciales. 

Esta subrutina está incluida en el apéndice destinado al BA¬ 
SIC en el programa AL_GESTION, en las líneas desde 13000 a 

13330. Pasamos a comentar las instrucciones principales. 

13040 ENC=0 

13050 FIN=0 

¡3060 EST0I=2 

13070 NUMER07.=2 

13075 IF LENÍNGMINíriOQÍi>=3í THEN GOTO 13078 

13077 N0MINftTIV0$=N0MINATIV0f+" “¡GOTO 13075 

13078 FIELD 1,31 AS CL$,33 AS IN$,15 AS CU,4 AS 
TEÍ.4 AS PRi.l AS TU,2 AS SIÍ,2 AS DEÍ 

13080 IF NUMEROLO THEN GOTO 13200 

t 

Después de las siempre necesarias inicializaciones de algu¬ 
nas variables se observa si la variable NUMERO% contiene el va¬ 
lor 0, en cuyo caso se realiza una nueva entrada de la subrutina, 
recordando en la variable PROXIMO% el número que sigue. En 
otro caso: 

13090 G0SUB 15000: REM -/LECTURA CLIENTE 

13100 EST07.=NUHER0X 

13110 IF NOMINATIVO*<CL* THEN NUÍIER0X-CVI(SI$): 

GOTO 13080 

Se lee un registro de CLIENTE y si el valor contenido en la 
variable NOMINATIVO$ es inferior al almacenado en el nudo se 
transfiere el puntero izquierdo del nudo a la variable NUMERO% 
y se cede el control a la instrucción 13080. Si no es así: 
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13120 IF NOMÍNATIV0$=CL$ THEN ENC=1:PR0XIH0X=CVI( 

DE$):GOTO 13300 

Si se encuentra el "nominativo" se pondrá a 1 la variable ENC, 
se actualizará la variable PROXIMO% de modo que indique el nudo 
que sigue y se realizará una nueva entrada de la subrutina. De 
otra forma:: 

13130 IF CVI(DE$)>0 THEN NUNER0X=CVI(DE$>:G0T013080 

Si el valor contenido en la variable NOMINATIVO$ es inferior 
al valor contenido en el nudo y, al mismo tiempo, el puntero de¬ 
recho del nudo indica que siguen otros nudos, actualizaremos la 
variable NUMERO% y repetiremos el procedimiento antes expues¬ 
to. De no ser así: 

13140 NUMEROLO 
13200 FIN=1 
13210 PRDXIN0Z=ESTDZ 
13220 RETURN 

No fue posible encontrar el "nominativo" y, por ello, se indica 
tal circunstancia en FIN, acabando con una nueva entrada de la 
subrutina. 

El procedimiento CLAVE está incluido en el apéndice desti¬ 
nado al lenguaje Pascal en el programa AL_GESTION. Como es 

habitual, procederemos a comentar las instrucciones principales. 

ene:=FALSE; 
fin:=FALSE; 
esto:-2; 
j: =2; 

WITH cliente'' 

B0 BESIN 
REF'EAT 
IF j=0 
THEN BEGIN 
•fin: =TRUE; 
proximo:=esto; 

END; 

Después de las inevitables inicializaciones de las variables, 
se comprueba si la variable "J” contiene el valor 0, en cuyo caso 
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■. i caliza el salto a la subrutina recordando en la variable PROXI- 
I |<) el nudo que sigue. De no ser así: 


ELSE BESIN 
SEEKÍcllente.j); 

GET- el i ente í; 
esto:=j; 

IF nosni nat i vo< c 1 i ente 
THEN j:=iíquierdo 

Se lee un registro de CLIENTE. Si la variable NOMINATIVO 
., n itiene un valor menor que el del registro leído se prosigue con 
l,i búsqueda en el siguiente nudo extrayendo el valor del puntero 
l/.OUIERDO. En caso contrario: 


ELSE IF no*inativa=cliente 
THEN BESIN 
enc;=TRUE; 
prcxiisc:=derscho: 

END 

Si se encuentra el "nominativo" se pondrá en “verdadero 1 la 
variable booleana ENC y se graba en PROXIMO el nudo que si- 
. iue; finalmente, se produce el reenvío a la subrutina. De no ser así: 


ELSE IF derecho>0 THEN j:=derschQ 
ELSE j:=0; 

END: 


Si el “nominativo” a buscar es mayor que el existente en el 
nudo, examinaremos el siguiente nudo solamente si el puntero de- 
iccho contiene un valor mayor que 0; en otro caso, se saldrá de 
la subrutina. Se sale del bucle de instrucciones en caso de que las 
variables ENC o FIN estén puestas a 1. Si se encuentra el "nomi¬ 
nativo” se leerá el registro para ponerlo a disposición del usuario. 


Subrutina LECTURA 

Permite leer un determinado número de registros y visuali¬ 
zarlos en la pantalla. Se solicita el número del primero y del últi¬ 
mo registro a leer. 

El procedimiento LISTA tiene como objeto encontrar el ené¬ 
simo registro, a condición de que esté grabado. Si no existe el re- 
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gistro se activará la variable FIN. Se sale de la subrutina cuando 
se pulsa la tecla <Escape>, cuando se ha visualizado el último re¬ 
gistro solicitado o cuando se han visualizado todos los registros 
existentes en el fichero. 

Esta subrutina está incluida en el programa AL_GESTION y 

se comentó a su debido tiempo. 


Subrutina LISTA 

Sirve para leer el enésimo registío a condición de que esté 
grabado. Si el registro no se grabó se activará la variable FIN, 


Subrutina NOMBRE 

Permite leer los clientes mediante el campo clave, o sea, con 
el nombre. La subrutina, por medio de TECLADO, pregunta desde 
qué nombre hasta qué otro se quiere leer. A continuación, el con¬ 
trol se cede a la subrutina CLAVE, que se encargará de encontrar 
el primer "nominativo”. En el caso de búsqueda con claves par¬ 
ciales (por ejemplo, si queremos partir de las claves que comien¬ 
zan con "b"), al no encontrar la clave correspondiente se activará 
la variable FIN y se cederá el control a la subrutina BUSQUEDA, 
que se posiciona en el último registro encontrado. 

Se entra luego en un bucle en el que se visualiza el registro 
CLIENTE y se cede el control a la subrutina BUSQUEDA, que en¬ 
cuentra el registro siguiente. Se sale de la subrutina cuando se pul¬ 
sa la tecla <Escape>, cuando se visualizó el último “nominativo’’ 
o cuando se visualizaron todos los registros existentes en el 
fichero. 

La subrutina está incluida desde la instrucción 6000 a la ins¬ 
trucción 6540 del programa AL_.GESTION incluido en el apéndi¬ 

ce reservado al lenguaje BASIC. Veamos las instrucciones prin¬ 
cipales: 

6090 PRINT "NOMBRE DEL PRIMER CLIENTE 
6100 SW=3 
6110 XP0S=32 
6120 YP0S=20 

6130 SOSUB 1000:REM —>TECLAD0 
6140 PARTIDA$=ALFA$ 

Mediante la subrutina TECLADO se solicita el nombre del pri¬ 
mer cliente para almacenarlo en la variable PARTIDA$ De forma 
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H i.i loga, se solicita el nombre del último cliente a visualizar y se 
iin lacena en la variable TERMINO$ 

6235 NOMINA!IV0$=PARTID0$ 

6240 G0SUB 13000:REI1 —>CLAVE 
6250 IF FIN=1 THEN GOTO 6500 

Con la ayuda de la subrutina CLAVE buscamos el "nomi- 
ii.iiivo" y, si no lo encontramos, cedemos el control a la subrutina 
lt|ISQUEDA, que nos permite encontrar el nudo anterior. Si se 
i ncuentra el “nominativo” se tendrá: 

6260 G0SUB 500:REM -—'BORRADO PANTALLA 

6270 6QSUB 10000:REM -MASCARA 

6280 GQSUB 11000:REH ~>VISUALIZACI0N 

Se visualiza el registro en la pantalla. 

6287 G0SUB 13500:REM -BUSQUEDA 
6290 YP0S=20:XP0S=i 

6300 E0SUB 15800:REM —>POSICI0NA EL CURSOR 
6310 PRINT "<ESPACI0> PARA CONTINUAR,<ESC> 

PARA TERMINAR:*; 

6320 G0SUB 15900:REM -iLECTURA CARACTER 

Se lee el siguiente registro y luego se da la posibilidad al 
usuario de observar con comodidad la pantalla y decidir si se ven 
los registros siguientes o se realiza el reenvío de la subrutina. 

El procedimiento NOMBRE está incluido en el programa 
Al. GESTION del apéndice reservado al lenguaje Pascal. Vea¬ 
mos las instrucciones principales: 

G0T0XY(0,20); 

WRITEl’nombre del primer diente 

sh:=’3’; * 
x_pos:=32; 
y_pos:=20; 
teclado; 
partida:=aHa; 

Mediante el procedimiento TECLADO se pide el nombre del 
primer cliente para almacenarlo en la variable PARTIDA. De for¬ 
ma análoga se solicita el nombre del último cliente a visualizar y 
se almacena en la variable TERMINO. 
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noninativo:apartida; 
clave; 

IF fin 
THEN BE6IN 
búsqueda; 

■fin: =FALSE; 

END; 

Con la ayuda del procedimiento CLAVE buscamos el “nomi¬ 
nativo" y, si no lo encontramos, cedemos el control al procedi¬ 
miento BUSQUEDA, que procede a encontrar el nudo anterior. Si 
lo encuentra tendremos: 

REPEflT 

borrado_pantalla; 

(tascara; 

visualizacion; 

Se visualiza el registro en la pantalla. 

esto:=proxi#a; 

IF estoOO THEN búsqueda; 

WRITE<’<ESPAC10> para continuar,’, 

VESO para terminar’); 

READ(respuesta); 

Se lee el siguiente registro y luego se da la posibilidad al 
usuario de observar con comodidad la pantalla para decidir si 
examina los siguientes registros o si efectúa el reenvío de la 
subrutina. 

UNTIL(respuesta=CHRÍC27)) 

0R(esto=0) 

OR(cliente A .cliente>termino) 

El bucle termina con la indicación por parte del usuario (cuan¬ 
do pulsa la tecla <Escape>), cuando se visualiza el último cliente 
solicitado o, finalmente, cuando se acaban los registros en el fi¬ 
chero CLIENTES. 



Submtina BUSQUEDA 

Sirve para leer el registro del fichero CLIENTES que corres- 
I k iiide al contenido de la variable PROXIMO. En el caso de que 
i I puntero izquierdo sea diferente de 0, se continuará la búsque- 
<l.i basándose en su contenido. La variable PROXIMO al final de 
ln subrutina se actualiza de modo que apunte el registro siguien- 
ii< La subrutina BUSQUEDA, incluida en el apéndice reservado al 

BASIC, se introduce en el programa AL_.GESTION ocupando las 

lineas 13500/13820. 

13540 FUERANO 

13550 REM 

13560 EST0%=ABS(PROXIMOS) 

13565 NUHER0X=EST0Z 

13570 GOSUB 15000:REM —>LECTURA CLIENTE 

Una vez inicializada la variable FUERA se lee un registro del 
fichero CLIENTES. El número del registro leído depende del valor 
.ibsoluto contenido en la variable PROXIMO%, puesto que puede 
contener valores negativos. 

13580 IF CVI (SIÍ)OO AND PR0XIM07.>=0 THEN PROXIMOS 
CVI(SI$):GOTO 13800 

Se almacena el siguiente nudo con tal de que el puntero iz¬ 
quierdo no esté puesto a 0 y la variable PROXIMO% no contenga 
un valor negativo y luego se vuelve a realizar la lectura. De no 
ser así: 

13590 FUERA=1 

13600 PR0XIM0X=CVI(DE$) 

Se almacena el siguiente nudo y se hace una nueva entrada 
en la subrutina. 

El procedimiento BUSQUEDA se incluyó en el programa 
AL_.GESTION del apéndice reservado al lenguaje Pascal. Vea¬ 

mos las instrucciones principales: 

fuera:=FALSE; 

REPEAT 

esto: =ABS (proxireo); 

SEEK (el i ente,esto); 

GET (cliente); 
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Después de inicializar la variable FUERA se comienza un bu¬ 
cle de instrucciones en donde se lee un registro de CLIENTE. 
El número del registro depende del valor absoluto de la varia¬ 
ble PROXIMO, habida cuenta de que puede contener valores ne¬ 
gativos. 

IF (izquierdoOO) AND <prosiao>=0) 

THEN proKiíso: =izquiardo; 

Se lee el siguiente nudo a condición de que el puntero iz¬ 
quierdo contenga un valor diferente de 0 y de que la variable 
PROXIMO contenga un valor mayor o igual que 0. 

ELSE BEGIN 
fuera:=TRUE; 
proKÍfio:=derecho! 

END; 

UNTIL tuera; 

END;íwith cliente'') 

Se busca el siguiente nudo y se sale del procedimiento. Hay 
que destacar el hecho de que se sale del procedimiento solamen¬ 
te cuando la variable booleana FUERA está en VERDADERO. 


Subrutina MODIFICACION 

El acceso mediante árbol binario nos permite modificar cual¬ 
quier registro. Después de borrar la pantalla se solicita mediante 
la subrutina TECLADO el nombre del cliente a modificar. La 
subrutina CLAVE se encarga de buscar dicho “nominativo" en el 
fichero CLIENTES. Si no la encuentra dará la indicación correspon¬ 
diente en la pantalla y saldrá de la subrutina. Si se encontrara será 
posible modificar todos los campos a excepción del correspon¬ 
diente al nombre del cliente. El cursor se posiciona al comienzo 
d« 'I campo si el operador pulsa la tecla <Escape> y podrá modi- 
í'icario (escribir los datos nuevos y terminar con <Return>). Final¬ 
mente, el registro se vuelve a escribir en disco exactamente en 
l,i misma posición. 

Esta subrutina fue objeto de comentario en el primer volumen. 



Subrutina de borrado 

Podemos indicar los registros que han de considerarse bo- 
iindos. Hemos dicho ya que para no complicar los programas no 
. mpleamos la técnica de recuperación inmediata del espacio li¬ 
bio dejado por los borrados; será precisamente el programa 

Al,_COMPACTA el instrumento para la recuperación de dicho 

espacio. 

Después del borrado de la pantalla se solicitará la clave de 
BUSQUEDA mediante la subrutina TECLADO. El control se cederá 
n la subrutina CLAVE. Si no se encontrara el nombre se dará la 
indicación correspondiente en la pantalla y se saldrá de la subru- 
t i na. Si se encuentra la clave se visualiza el registro en la pantalla. 
A continuación se pide la confirmación de borrado al usuario. Si 
i ;ste último responde con “S" o con "s” el campo TIPO se modifi¬ 
cará en "C" y luego el registro se grabará en disco en la misma 
posición. 

También esta subrutina se comentó con anterioridad. 


Programa AL—COMPACTA 

Antes de ejecutar el programa es preciso realizar las opera¬ 
ciones preliminares siguientes: cambiar el nombre del fichero 
CLIENTES.DAT por CLIENTES.VIE y llamar el programa AL—PRE¬ 
PARA, que establece el nuevo fichero CLIENTES.DAT En BASIC 
haremos RENAME CLIENTES.DAT CLIENTES.VIE. En Pascal, utili¬ 
zaremos la función Cjambio del Fjichero y luego escribiremos 
CLIENTES.DAT, CLIENTES.VIE. Luego se llama el programa 
A l, P REPARA para preestablecer el fichero CLIENTES.DAT nue¬ 
vo. Durante esta fase es posible dimensionar el fichero de manera 
diferente. 

El programa está incluido en el apéndice destinado al lengua¬ 
je BASIC con el nombre de AL_COMPACTA. Procedamos a co¬ 

mentar las instrucciones principales: 

140 OREN "R",2,"CLIENTES.DAT",92 
160 OREN "RUI,"CUENTE.VEC,92 

Se abren los dos ficheros declarándolos de tipo aleatorio. 

175 GET #2,1 

180 FIELD 1,2 AS ACTÍ.2 AS ULT* 

190 GET #1,1 
210 n=CVI (ULTIMO#) 

220 Y7,=CVI ¡ACT$) 
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Se lee el primer registro del fichero VIEJOS para conocer el 
número de los registros allí grabados. Del nuevo fichero CLIEN¬ 
TES se toma el número de registro que puede contener y dicho 
valor se almacena en la variable X%. Luego, después de haber ini- 
cializado las variables NUMERO%, ACTUAL% y Z%, iniciamos un 
bucle de instrucciones que termina después de haber leído el úl¬ 
timo registro del fichero VIEJOS. 

280 GET #l,ZX 

290 IF TIP$<>"C“ THEN GOTO 320 

300 PRINT CL1 *;BORRADO" 

Se lee un registro del fichero VIEJOS y se lleva la indicación 
de borrado a la pantalla, incrementándose la variable Z% y ce¬ 
diendo el control a la instrucción 480. De otro modo: 

330 IF imi THEN GOTO 500 

Si se han superado las dimensiones del fichero se da la indi¬ 
cación correspondiente y se cierra el programa. De no ser así: 

350 G0SUB 12000:REM —>flCT NUDO 

El control del programa se cede a la subrutina ACT—NUDO, 
que se encarga de encontrar el lugar en donde introducir el clien¬ 
te. 


360 LSET CLS=CLI$ 

Al primer campo del registro CLIENTES se transfiere el con¬ 
tenido del primer campo del registro VIEJOS. A continuación se 
dan otras instrucciones, similares a ésta, para completar el registro. 

450 PRINT CL$ 

460 NUMERDX=ACTUAL% 

465 G0SUB 15500:REM —>ESCRITURA CLIENTE 
470 ACTUALX=ACTUAL%+1 

Se imprime el nombre del cliente, se graba el fichero CLIEN¬ 
TES y se actualizan los contadores de registros. 

4B0 IF ZX<YX THEN GOTO 260 
490 GOTO 600 


Si hay otros registros se cede el control a la instrucción 260, 
y <le no ser así, se tendrá: 

620 NUMEROS 1 

625 G0SUB 15000:REM —>LECTURA CLIENTE 
630 LSET ACT$=MKI$(ACTUALX) 

640 G0SUB 15500:REM —>ESCRITURA CLIENTE 

Grabamos la situación de los registros válidos en el primer re- 
■ |i:;tro del fichero CLIENTES. 

650 CL0SE 1 
660 CL0SE 2 
670 END 

Cerramos los dos ficheros. 

La subrutina ACT_NUDO se comentó ya en la explicación 
del programa AL—GESTION. 

En el apéndice destinado al lenguaje Pascal hemos incluido 
ol programa AL—COMPACTA. Veamos las instrucciones prin¬ 
cipales: 

RESET(viejo,'cliente.vie'); 

RESET(cliente,’eliente.dat’); 

Se abren los dos ficheros. 

SEEK(cliente,!); 

GET(cliente); 

SEEK(viejo,1); t 

GET(viejo); 
x:=cliente A ,«iaxiao; 
y:=viejs A .primero; 

Se lee el primer registro del fichero CLIENTES para conocer 
el número de los registros allí grabados. Se almacena en la varia¬ 
ble "X" el número máximo de registros, leído desde el primer re¬ 
gistro del fichero CLIENTES. Luego, después de haber inicializa- 
do las variables ACTUAL e “Y”, se da comienzo a una serie de ins¬ 
trucciones que terminan cuando se ha leído el último registro del 
fichero VIEJOS. 

GET(viejo); 
actual:=2; 
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,.-T. 

i. 

REPEAT 
WITH viejo A 
DO BE6IN 

IF tipo=’C’ 

THEN WFlITELN(cliente: 15,’ barrado’) 

Se lee un registro del fichero VIEJOS y si este último lleva la 
indicación de borrado, se dará la señal adecuada en la pantalla. 
De no ser así se tendrá: 

ELSE BEGIN 
IF actual-1 > x 
THEN 3EGIN 

WRITELN(’hay actual-!,’ registros’, 

'activos emin fichero que los’, 

’prevee ’,x,’!’); 

WRITELNl’no puedo proseguir’); 

WRI TELN!'pulse <RET'JRN>’); 

READLN; 

EXIT íprogra«); 

END; 

Si no hay suficiente espacio en disco se emitirá la indicación 
correspondiente y se bloqueará el programa. De otro modo: 

ELSE EEGIN 
noninativo:=diente; 
actfnudo; 

Se cede el control al procedimiento ACT_NUDO que se co¬ 

mentó con anterioridad. Siguen otras instrucciones para transferir 
cada campo desde un registro a otro. 

WRITELN(cliente:15); 

SEEK(cliente,actual-1); 

RUT(cliente); 
actuai=actual+l 
END; 

En la pantalla se escribe el nombre del cliente, se graba el fi¬ 
chero CLIENTES y se actualiza el contador de registros. 
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END; 

z:=z+l: 

GET(viejo); 

END; Ide la with viejo') 

UNTIL z >=y; 

Si hay otros registros en el fichero se procesan. En otro caso: 

SEEKfcliente,1); 

GET (diente); 

diente*.priaerc:=actual; 

SEEKfcliente,1); 

RUT (diente); 

Grabamos en el primer registro del fichero CLIENTES cuál 
será el siguiente registro a grabar. 

GLOSE(eli ente,LOCK); 

CLOSE(viejo); 

Cerramos los dos ficheros. 

Después de las oportunas comprobaciones será posible bo¬ 
rrar el fichero CLIENTES.VIE. En lenguaje BASIC haremos ERASE 
CLIENTES.VIE y en Pascal llamaremos a la función Rjetirada del 
Fjichero, escribiremos CLIENTES.VIE y responderemos con “S" a 
la solicitud de confirmación del borrado. 
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APENDICE BASIC 


IS _P REPARA 

100 rem tumttmttutumttt 

110 REM ti ISJREPARA ti 

120 rem mtttutiuttmmtm 

130 REM 

140 FILE* 3 "CLIENTES.DAT" 

160 OPEN ■R 1 ,1,FILES,88 
170 INPUT "¿DE CUANTOS REGISTROS ESTARA 
COMPUESTO EL FICHERO?"¡ULTIMO 
180 PRIMEROS 

190 FIELD 1,2 AS PRIMERO*,2 AS ULTIMO* ' 

200 LSET PRIMERO*=MKI*(PRIMERO) 

210 LSET ULTIMO*=MKI*(ULTIMO! 

220 PUT #1,1 

230 FIELD 1,31 AS CLIENTE*,33 AS DIRECCION*, 

15 AS CIUDAD*, 4 AS TELEFONO*,4 AS PREFIJO», 

1 AS TIPO* 

250 LSET CLIENTE* 3 "' 

260 LSET DIRECCION* 3 " n 
270 LSET CIUDAD* 3 "' 

280 LSET TELEFONO*= n O" 

280 LSET PREFIJO* 3 "0000" 

300 LSET TIPO* 3 " “ 

320 FOR U=2 TO ULTIMO+1 
330 PUT #1,X% 
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340 NEXT V. 

350 CLOSE #1 

400 OREN "R",2,"INDICE.DAT",35 

410 FIELD 2,31 AS NOMBRE!,2 AS IZQUIERDO!,2 AS DERECHO! 

420 LSET NOMBRE! 5 "" 

430 LSET IZQUIERD0!=MKI!(0¡ 

440 LSET DERECH0*=I1KIÍ (0) 

450 FOR XX 5 1 TO ULTIMO 
460 RUT *2,XX 
470 NEXT n 
480 CLOSE #2 
500 END 


IS_6ESTION 

loo rem mtmmmtmm 

110 REM ** ISJESTIDN It 

120 rem tmmtmmmm 

130 REM 

140 OF'EN "R“,l,"CLIENTES.DAT",38 
170 NUMEROS 1 

180 FIELD 1,2 AS ACTUAL!,2 AS ULTIMO! 

190 BOSUB 15000:REM —>LECTURA CLIENTE/1 
200 ACTUALX=CVI(ACTUAL!) 

210 ULTIMO%=CVI(ULTIMO!) 

211 OPEN "R",2,“INDICE.DAT",25 

212 FIELD 2,31 AS NO!,2 AS SI!,2 AS DE! 

220 50SUB 500:REM-.'BORRADO PANTALLA 

230 GOSUB 800:REM -JMENU 

240 ON QUEQUIERE GOSUB 2000,4000,6000.9000 

250 IF QUEQUIERE09 THEN GOTO 220 

270 CLOSE 1 

280 CLOSE 2 

290 END 

500 REM :::::::::::::::::.. 

510 REM :: BORRADO PANTALLA :: 

520 REM :::::::::::::::::::::::: 

530 REM 
540 CLS 
550 RETURN 


800 REM :::::::::::: 

810 REM:: MENU :: 

020 REM :::::::::::: 

830 REM 

040 PRINT "1 --> CARGA DE DATOS" 

850 PRINT 

860 PRINT "2 —> LECTURA CON EL NUMERO DE REGISTRO" 
070 PRINT 

880 PRINT n 3 —> LECTURA CON EL NUMERO DE CLIENTE” 
090 PRINT 

900 PRINT "4 —> MODIFICACION DE UN REGISTRO" 

910 PRINT 

920 PRINT "5 —> BORRADO DE UN REGISTRO" 

930 PRINT 

940 PRINT "9 —> FIN DEL PROGRAMA" 

950 PRINT 

960 PRINT ”?”:RESPUESTA!=INPUTÍ(1):QUEQUIERE= 

ASC(RESPUESTA!)-ASC(“O") 

980 RETURN 

1000 REM ::::::::::::::: 

1010 REM :: TECLADO :: 

1020 REM ::::::::::::::: 

1030 REM 
1040 ALFA! 5 "" 

1050 GOSUB 15800:REM ->PGSIC!ONA EL CURSOR 
1060 GOSUB 15900:REM —>LECTURA CARACTER 
1070 IF ASC(CAR!)=13 THEN GOTO 1210 
1080 IF ASC (CAR!) 08 THEN GOTO 1310 

1090 REM - 

1100 REM - TECLA DE RETORNO - 

1110 REM - 

1120 IF LEN<ALFA!)>1 THEN ALFA!=LEFTÍ(ALFAÍ, 
LEN(ALFA!)-i! ELSE ALFA! 5 "" 

1130 REM - 

1140 REM -- IMPRESION DEL CAMPO - 

1150 REM - 

1160 GOSUB 15800:REM -OPOSICIONA EL CURSOR 
1170 PRINT ALFA!;’ 

1180 GOSUB 15800:REM -OPOSICIONA EL CURSOR 
1190 PRINT ALFA!; 

1200 GOTO 1060 
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1210 REK - 

1220 REM - NUEVA ENTRADA - 

1230 REM - 

1240 IF 3W=3 THEN RETURN 
1250 G»=0 

1260 FOR X=1 TO LEN'ALFAt) 

1270 G#=G#*10+ASC(MID$(ALFA*,X,1))-48 
1280 NEXT X 

1290 IF SW=1 THEN PEQUENO=CSNG(GH) ELSE GRANDE#=G# 
1300 RETURN 

1310 REM--- 

1320 REM - CARACTER NORMAL -- 

1330 REM - 

1340 IF SW=3 THEN GOTO 1450 

1350 REM - 

1360 REM - CARACTER NUMERICO - 

1370 REM.- 

1380 IF CARtC'O" OR CAR»>"9" THEN GOTO 1400 
1390 GOTO 1490 

1400 REM... 

1410 REM - ERROR DE TECLA - 

1420 REM-- 

1430 PRINT CHRÍ(7); 

1440 GOTO 1060 

1450 REM - 

1460 REM - CARACTER ALFABETICO -- 

1470 REM - 

1480 IF CARÍ<“ " OR CARÍ>"z" THEN GOTO 1400 
1490 ALFfi$=ALFA$+CAR$ 

1500 GOTO 1130 

2000 REM ..... 

2010 REM :: CARGA DE DATOS :: 

2020 REM ....... 

2030 REM 

2040 GGSUB 500:REM -/BORRADO PANTALLA 

2050 PRINT "LA CARGA PARTE CON EL NUMERO:";ACTUALM 
2060 IF ACTUAL%<3 THEN GOTO 2140 
2070 NUMEROX=ACTUALM 

2080 FIELD 1,31 AS CLI,33 AS IN»,15 AS CI»,4 AS TE» 

4 AS PR$, 1 AS TI* 

2090 GOSUB 15000:REM —>LECTURA CLIENTE 


.'100 PRINT "EL REGISTRO ANTERIOR ESCRITO 
ES EL SIGUIENTE:" 

.110 GOSUB 10000:REM —>MASCARA 
7120 GOSUB 11000:REM —>VISUALIZACION 
7130 PRINT 

2140 INPUT "PULSE <RETURN) PARA INICIAR LA CARGA"; 

RESPUESTA» 

2150 REM 

2155 FIELD 1,31 AS CL$,33 AS IN»,15 AS CI»,4 AS TE» 
4 AS PR»,1 AS TI» 

2160 GOSUB 500:REM ->BQRRADQ PANTALLA 

2170 YP0S=20:XP0S=1 

2180 GOSUB 15800:REM ->POSICIONA EL CURSOR 
2190 PRINT "PARA TERMINAR,A LA PETICION DE CLIENTE 
RESPONDA ’zzzz’ ‘ 

2200 GOSUB 10000:REM ~>HASCARA 
2210 XP0S=I3:YP0S=4 
2220 SW=3 

2230 GOSUB 1000:REM —>TECLADO 
2240 NOMINATIVOt=ALFAt 
2250 IF NQMINATIVO»="zzzz" THEN RETURN 
2260 IF ACTUAL7.)ULTIM0X THEN INPUT"NO PUEDO SEGUIR 
PUES SE HA SUPERADO LA DIMENSION MAXIMA DEL 
FICHERO. PULSE <RETURN>';RESP'JESTA»:RETURN 
2280 GOSUB 13000:REM -->CLAVE 
2290 IF ENC=0 THEN GOTO 2310 

2295 YP0S=20: XF'0S=1 

2296 GOSUB 15800:REM ->P0S1CI0NA EL CURSOR 
2300 INPUT "ESTE CLIENTE YA EXISTE.NO PUEDO 

INTRODUCIRLO.PULSE <RETURN) 

RESPUESTA» 

2305 RETURN 
2310 REM 

2320 CLIENTE»=NOMINATIVO» 

2330 SW=3 
2340 XP0S=13 
2350 YP0S=6 

2360 GOSUB 1000:REM —/TECLADO 
2370 DIRECCIOKt=ALFA» 

2380 SW=3 
2390 XPüS= 13 

















2400 GOSLIB 1000:REM —>TECLñDO 
2420 CIUDAD!=ALFA! 

2430 SW=2 
2440 XF0S=13 
2450 YP0S=10 

2460 50SUB 1000:REM —>TECLADO 
2470 TELEFQNQ#=GRANDE# 

2480 SW=3 
2490 XPQS=13 
2400 YP0S=12 

2510 GOSUB 1000:REM —>TECLADG 
2520 PREFIJO!=ALFAÍ 
2530 TIPO!=" " 

2590 LSET CL!=CLIENTE! 

2600 LSET IN!=DIRECCION! 

2610 LSET CI!=CIUDADÍ 
2620 LSET TE$=MKI(TELEFONO#) 

2630 LSET PRí=PREFIJO$ 

2640 LSET TI!=TIPO! 

2650 NUMEROX=ACTUALX 

2670 GOSUB 15500:REH —>ESCRITURA CLIENTE 
2680 REM 

2690 FIELO 1,2 AS ACTUAL!,2 AS ULTIMO! 

2700 LSET ACTUAL!=MKI! ¡ACTUAL'/.) 

2710 LSET ULTIMO!=MKI!(ULTIMO'/.) 

2720 NUMEROS 1 

2730 GOSUB 15500:REH —>ESCRITURfi CLIENTE/1 

2735 GOSUB 12000:REM —>ACT NUDO 

2740 GOTO 2150 

2750 REM 

4000 REM 

4010 REM :: LECTURA CON EL NUMERO DE REGISTRO 
4020 REM ¡ i:::::::::::::;:: ¡ : ¡ ; 

4030 REM 

4040 YP0S=20:XPGS=1 

4050 GOSUB 15800:REM —>POSICIONA EL CURSOR 
4060 PRINT “NUMERO DEL PRIMER REGISTRO:" 

4070 SN=1 
4080 XP0S=32 
4090 YP0S=20 

4100 GOSUB 1000:REM —>TECLADO 



4110 INICID%=PEQUEN0%+1 
4120 YP0S=20:XP0S=1 

4130 GOSUB 15800:REM —>POSICIONA EL CURSOR 
4140 PRINT “NUMERO DEL ULTIMO REGISTRO: 

4150 Sld=l 
4160 XP0S=32 
4170 YPQS=20 

4180 GOSUB 1000:REM —/TECLADO 
4190 ALTX=PEQUEN0X+1 

4200 IF ALTXXACTUALX-l THEN ALTX=ACTUALX-1 
4210 GOSUB 11500:REM ->LISTA 
4220 IF FIN-1 THEN RETURN 
4230 REM 

4240 GOSUB 500:REM -—>BORRADO PANTALLA 
4250 GOSUB 10000:REM —>MASCARA 
4260 GOSUB 11000:REM —>VISUALI2ACI0N 
4270 YP0S=2O:XP0S=1 

4280 GOSUB 15800:REM -->POSICIONA EL CURSOR 
4290 GOSUB 11500:REM —>LISTA 
4300 PRINT “(ESPACIO) PARA SEGUIR,(ESO PARA 
TERMINAR" 

4310 RESPUESTA!=INPUT!(1) 

4320 IF ASC¡RESPUESTA!)=27 OR FIN=1 OR INICIOX) 
ALTX+1 THEN RETURN 
4330 GOTO 4230 
6000 REM :::::::::::::: 

6010 REM :: NOMBRE :: 

6020 REM :::::::::::::: 

6030 REM 
6060 YP0S=20 
6070 XP0S=1 

6080 GOSUB 15800:REM —XPOSICIONA EL CURSOR 
6090 PRINT "NOMBRE DEL PRIMER CLIENTE:" 

6100 SN=3 
6110 XP0S=32 
6120 YP0S=2O 

6130 GOSUB 1000:REM —XTECLADO 
6140 PARTIDA!=ALFA! 

6150 YP0S=20 
6160 XP0S=1 

6170 GOSUB 15800:REM —XPOSICIDNA EL CURSOR 
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6180 PRINT "NOMBRE DEL ULTIMO CLIENTE: 

u 

6190 SW=3 
6200 XP0S=32 
6210 YP0S=20 

6220 GOSUB 1000:REH —>TECLADO 

6230 TERMINO*=ALFA* 

6231 IF LEN(TERMINOS)>=3I THEN GOTO 6235 

6232 TERMINO$=TERMINO$+“ “¡GOTO 6231 
6235 NOMINATIVO$=PARTIDA$ 

6240 60SUB 13000:REM —>CLAVE 
6250 IF FIN=1 THEN GOTO 6500 

6260 GOSUB 500:REH ->BORRADO PANTALLA 

6270 GOSUB 10000:REM —>MASCARA 
6280 GOSUB 11000:REM —>VISUALIZACION 
6282 ESTQ%=PROXIMOZ 
6205 IF ESTOCO THEN GOTO 6290 
6287 GOSUB 13500:REM —>CERCA 
6290 YP0S=20:XP0S=1 

6300 GOSUB 15300:REM —>POSICIONA EL CURSOR 
6310 PRINT DESPACIO) PARA SEGUIR,<ESC> 

PARA TERMINAR:” 

6320 GOSUB 15900:REM — >LECTURA CARACTER 

6330 IF ASC(CARÍ)=27 THEN GOTO 6380 

6340 IF CLÍXTERMINOÍ THEN GOTO 6380 

6350 IF EST0X=0 THEN GOTO 6380 

6370 GOTO 6260 

6380 REH 

6400 RETURN 

6410 REM 

6500 REH 

6510 GOSUB 13500:REM — >BUSQUEDA 
6520 FIN=0 
6530 GOTO 6260 
6540 REH 

8000 REM i:::::::::::::::::;: 

8010 REM :: MODIFICACION :: 

8020 REM :::::::::::::: . 

8030 REM 

11040 GOSUB 500: REM->BORRADG PANTALLA 

0050 YP0S=2O:XP0S=1 


11060 GOSUB 15800:REM —>POSICIONA EL CURSOR 
Il(i70 PRINT “CLAVE A BUSCAR:" 

IOBO SW=3 

«090 XP0S=23:YP0S=20 

II100 GOSUB 1000: REM —>TECLADG 

11110 NOMINATIVO*=ALFAÍ 

11130 IF LEN(NOMINATIVOS) =31 THEN GOTO 8150 

1)140 NOMINATIVOS=NOMINATIUG$+” “¡GOTO 8130 

11150 GOSUB 13000: REM — >CLAVE 

11160 IF FIN=0 THEN GOTO 8210 

11170 YP0S=20: XP0S=1 

11180 GOSUB 15800:REM —>POBICIONA EL CURSOR 
11190 INPUT "NO EXISTE ESTE CLIENTE.PULSE<RETURN>" 
RESPUESTA* 

B200 RETURN 
8210 REM 

8220 GOSUB 10000:REM —>NASCARA 
11230 GOSUB IÍOOOíREM -->VISUALIZACION 
8240 YP0S=20:XP0S=1 

8250 GOSUB !5800:REM ->POSICIONA EL CURSOR 
8260 PRINT “PULSE <ESC> PARA MODIFICAR EL CAMPO, 

<RETURN) PARA SEGUIR" 

8270 YP0S=6:XP0S=11 

0280 GOSUB 15800:REM —>POSICIONA EL CURSOR 
8290 GOSUB 15900:REM —>LECTURA CARACTER 
8300 IF ASC (CAR*) 027 THEN GOTO 8380 
8310 YP0S=6:XP0S=13 

8320 GOSUB 15800:REM -OPOSICIONA EL CURSOR 
8330 PRINT “ 

H 

B340 SW=3 

B350 XP0S=13:YP0S=6 

8360 GOSUB 1000:REM —>TECLADO 

8370 LSET IN*=ALFñ* 

8380 REM 

8390 YP0S=8:XP0S=11 

8400 GOSUB 15300:REM —>P0SICI0NA EL CURSOR 
8410 GOSUB 15900:REM — >LECTURA CARACTER 
B420 IF ASC(CAR*)< >27 THEN GOTO 8500 
8430 YF'GS=8:XP0S=13 

8440 GOSUB 15800:REM POSICIQNA EL CURSOR 









8450 PRINT ’ 

II 

8460 SW=3 

8470 GOSUB 15800-.REM —>POSICIONA EL CURSOR 
8480 GOSUB 1000:REM —/'TECLADO 
8490 LSET CI$=ALFA$ 

8500 REM 

8510 YPOS=10:XP0S=11 

8520 GOSUB 15800:REM —>POSICIONA EL CURSOR 
8530 GOSUB 15900:REM LECTURA CARACTER 
8540 IF ASC(CARO027 THEN 60T0 8620 
8550 YF‘0S=10: XP0S=13 

8560 GOSUB 15800:REM -OPOSICIONA EL CURSOR 
8570 PRINT “ 

N 

8580 SW=2 

8590 XP0S=13:YP0S=10 

8600 GOSUB 1000:REM —>TECLADO 

8610 LBET TE$=MKS*(GRANDE*) 

8620 REM 

8630 YPOS=12:XP0S=11 

8640 GOSUB 15800: REM -OPOSICIONA EL CURSOR 
8650 GOSUB 15900:REM LECTURA CARACTER 
8660 IF ASC!CAR$)<>27 THEN GOTO 8740 
8670 YPOS=12:XP0S=13 

8680 GOSUB 15800:REM —>POSICIONA EL CURSOR 
8690 PRINT " 

H 

8700 SW=3 

8710 YPQS=12:XP0S=13 
8720 GOSUB 1000:REM 
8730 LSET PR!=ALFA! 

8740 REM 

8750 GOSUB 15500:REM 
8760 RETURN 
8770 REM 

9000 REM ::::::::::: 

9010 REM :: BORRADO 
9020 REM ::::::::::: 

9030 REM 

9040 GOSUB 500:REM - 


--/TECLADO 

~¿ESCRITURA CLIENTE 


—/BORRADO PANTALLA 


Vnr.o YP0S=20: XP0S=1 

9U60 GOSUB 15800:REM —>P0SICI0NA EL CURSOR 
9070 INF’UT "CLAVE A BUSCAR:'*;NOMINATIVO$ 

9080 IF LEN(NOMINATIVO$)=31 THEN GOTO 9100 
9090 NOMINATIVO$=NQMINATIVO$+ n "¡GOTO 9080 
9100 REM 

9110 GOSUB 13000: REM ->CLAVE 
9120 IF FIN=Í THEN GOTO 9250 
130 GOSUB 10000:REM — >MASCARA 
9140 GOSUB 11000:REM —>VISUALIZACION 
9150 YP0S=20:XP0S=1 

9160 GOSUB 15800:REM —>POSICIONA EL CURSOR 
9170 PRINT "¿QUIERE BORRARLO?(S/N)" 

9180 GOSUB 15900:REM —>LECTURA CARACTER 
9190 IF CAR$=‘S" OR CAR$=‘s" THEN 60T0 9210 
9200 RETURN 
9210 REM 

9220 LSET TI$="C“ 

9230 GOSUB 15500:REM ->ESCRITURA CLIENTE 
9240 RETURN 
9250 REM 

9260 YPOS=20:XPOS=1 

9270 INPUT "NO EXISTE ESTE CLIENTE.PULSE 
<RETURN>“;RESPUESTA! 

9280 RETURN 

10000 REM ::::::::::::::: 

10010 REM :: MASCARA :: 

10020 REM ::::::::::::::: 

10030 REM 

10040 YP0S=4:XP0B=1 

10050 GOSUB 15800:REM —XPOSICIONA EL CURSOR 
10060 PRINT "CLIENTE :" 

10070 YP0S=6:XP0S=1 

10080 GOSUB 15800:REM -XPQSICIQNA EL CURSOR 
10090 PRINT "DIRECCION :" 

10100 YP0S=8:XP0S=1 

10110 GOSUB 15800;REM —>P05ICI0NA EL CURSOR 
10120 PRINT "CIUDAD 
10130 YP0S=10:XPQS=1 

10140 GOSUB 15800:REM —>P0SICI0NA EL CURSOR 
10150 PRINT "TELEFONO :" 
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10160 YP0S=12:XP0S=1 

10170 60SUB 15800:REM —>P0SICI0Nfi EL CURSOR 
10180 PRINT "PREFIJO 
10190 YP0S=14:XPDS=1 

10200 60SUB 15800:REM —>POSICIONA EL CURSOR 
12500 RETURN 
10260 REM 

11000 REM ::::::::::::::::::::: 

11010 REM :: VISUALI2ACI0N :: 

11020 REM ::::::::::::::::::::: 

11030 REM 

11040 YP0S=4:XP0S=13 

11050 BOSUB 15800:REM —>POSICIONA EL CURSOR 
11060 PRINT CL$ 

11070 IF TI*<>” ■ THEN PRINT “ BORRADO”; 
11080 YP0S=6:XP0S=13 

11090 60SUB 15800:REM ->POSICIQNA EL CURSOR 
11100 PRINT ¡Nt 
11110 YP0S=8:XP0S=13 

11120 60SUB 15800:REM —>POSICIONA EL CURSOR 
11130 PRINT CI* 

11140 YP0S=10:XP0S=13 

11150 GOSUB 15800:REM —>POSICIONA EL CURSOR 
11160 TELEFONO#=CVS(TEt) 

11170 PRINT TELEFONO# 

11180 YP0S=12:XP0S=13 

11190 GOSUB 15800:REM —>POSICIONA EL CURSOR 
11200 PRINT PR* 

11290 RETURN 
11300 REM 

11500 REM ::::::::::::: 

11510 REM:: LISTA :: 

11520 REM ... 

11530 REM 
11540 FIN=0 

11550 INICIO%>=ACTUAL% OR INICI0Z<=0 THEN 
GOTO 11610 

11560 FIELD 1,31 AS CL*,33 AS INI,15 AS CI*, 
4 AS TE*,4 AS PR*,1 AS TI* 

11570 NUMEROSINICIO* 

11580 GOSUB 15000:REM — M.ECTURA CLIENTE 


ll‘,40 INICI0X=INICI0I+1 
11600 RETURN 
11610 FIN=1 
11670 RETURN 

II600 REM :::::::::::::::::: 

IIH10 REM:: VE CLIENTE :: 

11820 REM :::::::::::::::::: 

I1830 REM 

11040 FOR NUMER0X=2 TO ACTUALM 

11850 FIELO 1,31 AS CL*,33 AS IN*,15 AS CI*, 

4 AS TE*,4 AS PRÍ,1 AS TI* 

111)60 GOSUB 15000:REM —>LECTURA CLIENTE 

11870 GOSUB 500:REM ->B0RRAD0 PANTALLA 

11880 GOSUB 10000:REM —7MASCARA 

11890 60SUB 11000:REM —H'ISUALIZACION 

11900 INPUT "PULSE <RETURN) PARA SEGUIR" ;RESPUESTA* 

11910 NEXT NUMEROX 

11920 RETURN 

12000 REM i::::::::::::::: 

12010 REM :: ACTJBIDO :: 

12020 REM i:::::::;::::::: 

12030 REM 
12040 HECHO=0 

12050 IF ACTUAL7.=2 THEN LSE T SI*=MKIt(0):LSET DEí= 
MKI*(0):LSET NOÍ=NOMINATIVO*:PUTi2,2:GGTO 12520 
12060 REM 
12070 REM 
12080 NUMERQX=P7. 

12090 GOSUB 16000:REM —/LECTURA INDICE 
12100 IF NOMINATIVO*>NOI THEN GOTO 12300 
12110 IF C'vT;SI*K>0 THEN P2=CVIÍSI*):GOTO 12500 
12120 HECH0=1 

12130 LSET SI*=NKI*(ACTUAL*) 

12140 GOSUB 16500:REM —ESCRITURA INDICE 

12145 NUMEROS=ACTUALX 

12146 GOSUB 16000:REM —>LECTURA INDICE 

12147 LSET NQ*=NQM!NATIVOt 
12150 LSET S!*=MK3*!0) 

12160 LSET DEt=MKI*l-PX¡ 

12165 GOSUB 16500:REM —>E5CRITURA INDICE 
12170 GOTO 12500 
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12300 REM 

12310 IF CVI(DEí)>0 THEN PJ=CVI(DE$):60T0 12500 
12320 HECHD=1 
12330 MX=CVI(DE$) 

12340 LSET DE$=MKIt(ACTUñLZ) 

12350 GOSUB 16500 

12355 NUMEROX=ACTUALX 

12356 GOSUB 16000:REH —>LECTURA INDICE 
12360 LSET NOÍ=NOMINATIVOÍ 

1236"' LSET DEÍ=NKIÍ(HX) 

12370 LSET SIÍ=MKI$(0) 

12380 tOSUB 16500:REM —>E5CRITURA INDICE 
12500 REH 

12510 IF HECHÜ=0 THEN GOTO 12080 
12520 REM 

12530 ACTUALX=ACTUALX+1 
12540 RETURN 
12550 REM 

13000 REM ::::::::::::: 

13010 REM:: CLAVE :: 

13020 REM ::::::::::::: 

13030 REM 
13040 ENC=0 
13050 FiN=0 
13060 EST0X=12 
13070 NUMER0X=2 

13080 IF LEN(NOMINATIVOS)>=31 THEN GOTO 13078 

13077 NOMINATIVO*=NOMINATIV0$+" "¡GOTO 13075 

13078 REM 

13080 IF NUMEROLO THEN GOTO 13200 
13090 GOSUE 16000:REM —>LECTURA INDICE 
13100 ESTOX=NUMERCX 

13110 ¡F NOMINATIVOSNO* THEN NUMEROX=CVI(SI$): 
GOTO 13080 

13120 IF NOMINATIVOí=NOt THEN ENC=í:PROXIMOX= 
CVI(DEÍ!¡GOTO 13300 

13130 IF CVI(DEí)>0 THEN NUMEROX=CVI(DEí):SOTO 
13080 

13140 NUMEROLO 
13200 r TN=l 
¡3210 PROX!MOZ=EBTOX 


13220 RETURN 

13300 IF FIN=Í THEN RETURN 
13305 FIELD 1,31 AS CLí,33 AS INI,15 AS Clí, 
4 AS TEÍ.4 AS FRí,l AS Tlí 
13310 GOSUB 15000:REM --('LECTURA CLIENTE 
13320 RETURN 
13330 REM 

13500 REM :::::::::::::::: 

13510 REM :: BUS3UEDA 
13520 REM :::::::::::::::: 

13530 REM 
13540 FUERA=0 
13550 REM 

¡3560 ES T OX=AES(PROXIMO?.) 

13565 NUMEROX=ESTQX 

13570 GOSUB 15000:REM —>LECTURA CLIENTE 
13575 GOSUB 16000:REM -I-LECTURA INDICE 
13580 IF CVI(SIÍ)O0 AND PROXIMOX>=0 THEN 
PROXIMOX=CVI(SIÍ)¡GOTO 13800 
13590 FUERA=1 
13600 PROXIMOX=CVI(DEÍ) 

13800 IF FUERA=Q THEN GOTO 13550 
13810 RETURN 

15000 REM i:::::::::::::::::::::::::::::: 
15010 REM :: LECTURA FICHERO CLIENTE :: 
15020 REM ::::::::::::::::::::::::::::::: 
15030 REM 

15040 GET il.NUMEROX 
15050 RETURN 
15090 REM 

15500 P.EIM ::::::::::::::::::::::::::::::::: 
15510 REM :: ESCRITURA FICHERO CLIENTE :: 
15520 REM ::::::::::::::::::::::::::::::::: 
15530 REM 

15550 RUT il.NUMEROX 
15560 RETURN 
15570 REH 

15800 REM ::::::::::::::::::::: .. 

15810 REM:: P0SIC10NA EL CURSOR :: 

15820 REM ::::::::::::::::::::::::::: 

15830 REM 


86 


87 




































15840 LOCATE YPOS,XPOS,1 
15850 RETURN 
15860 REM 

15900 REM ..::::::::.. 

15910 REM :: LECTURA UN CARACTER :: 

15920 REM ..::::::::::.. 

15930 REM 

15940 CARt=INPUT*(l) 

15950 RETURN 
15960 REM 

16000 REM ::::::.. 

16010 REM :: LECTURA INDICE :: 

16020 REM ...:::::::: 

16030 REM 

16040 GET *2,NUMERO* 

16050 RETURN 
16060 REM 

16500 REM...:::::: 

16510 REM :: ESCRITURA INDICE :: 
16520 REM i::::::::::::;:::::::::: 
16530 REM 

16540 PUT #2,NUMERO* 

16550 RETURN 
16560 REM 


I S__COMP ACT A 

loo reh tmmnumtmt 

110 REM tt ISJÜOMPACTA ti 

120 rem ttttttttttttttttttt 

130 REM 

140 OREN ”R",2,“CLIENTES.DA?",88 
150 OPEN ”R“,1,“CLIENTES.VEC",88 
170 FIELD 2,2 AS ACTUAL*,2 AS ULTIMO* 
175 GET #2,1 

180 FIELD 1,2 AS ATCt.2 AS ULT* 

190 GET 11,1 

200 OPEN ’R",3,"INDICE.DAT",35 

205 FIELD 3,31 AS N0Í,2 AS SI»,2 AS DE* 

210 XX=CVI(ULTIMO*) 

88 


1 770 YX=CVI(ATC*) 

?30 NUMEROXM 

735 60SUB 15500: REM -^ESCRITURA CLIENTE 
740 ACTUAL*=2 

270 FIELD 1,31 AS CLI*,33 AS INDt,15 AS CIT*, 
4 AS TELt,4 AS PRE*,1 AS TIP* 

280 GET tl.ZS 

790 IF TIF*<)“C” THEN GOTO 320 
300 PRINT CLI*.“ANULADO" 

310 GOTO 475 

330 IF ZX>X*+1 THEN GOTO 500 
340 NOMINATIVO*=CLI* 

345 FIELD 2,31 AS CL*,33 AS INt,15 AS CIt, 

4 AS TEÍ,4 AS PRÍ.l AS TI* 

360 LSET CL*=CLI* 

370 LSET INt=IND* 

380 LSET CI*=CIT* 

390 LSET TE*=TEL* 

400 LSET PR*=PRE* 

410 LSET TI*=TIP* 

450 PRINT CL* 

460 NUMERO*=ACTUALX 

465 60SUB 15500:REM —>ESCRITURA CLIENTE 
470 GOSUB 12000: REM ->ACTJUDO 
475 ZX=2X+1 

480 IF ZX<YX+1 THEN GOTO 260 
490 SOTO 600 

510 PRINT 'HAY 1 , ZX,‘REGISTROS ACTIVOS EN UN 
FICHERO QUE LOS PREVEE n ,XX,""' 

520 PRINT "NO PUEDO SEGUIR." 

530 INF'UT "PULSE <RETURNRESPUESTA* 

540 60T0 650 

610 FIELD 2,2 AS ACT*.2 AS ULT* 

620 NUMER0X=1 

625 GOSUB 15000:REM —>LECTURA CLIENTE 
630 LSET ACT*=MKI*(ACTUAL*) 


































640 GOSUB 15500:REM —>ESCRITURA CLIENTE 

650 CLQSE 1 

660 CLOSE 2 

670 CLOSE 3 

680 END 

12000 REM :::::: . ::: 

12010 REM :: ACT_NUDO :: 

12020 REM :::::::::::::::: 

12030 REM 
12040 HECH0=0 

12050 IF ACTUAL%=2 TREN LSET SI$=MKIÍ(0):LSET DE*= 

MKI$(0):LSET NO$=NOMINATIVOÍ:PUT I3,2:G0T0 12520 
12060 P7.=2 
12070 REM 
12080 NUMERO'/.=PX 

12090 GOSUB 16000:REM —>L£CTURA INDICE 
12100 IF NOMINATIVO!>NQí TREN GOTO 12300 
12110 IF C'v'I(314)00 TREN PX=CVI(SI$!¡SOTO 12500 
12120 HECH0=1 

12130 LSET SI!=MKI$ (ACTUAL'!) 

12140 GOSUB 16500:REM -^ESCRITURA INDICE 

12145 NUHEROX=ACTUAL% 

12146 GOSUB 16000:REM —)LECTURA INDICE 

12147 LSET NOÍ=NQMINATIVC! 

12150 LSET SIt=MKlí(0) 

12160 LSET DE$=MKI$(-PX! 

12165 GOSUB 16500:REM —>ESCR!TURA INDICE 
12170 GOTO 12500 
12300 REM 

12310 IF CVI!DE$)>0 TREN PÍ=CVI(DEX):SOT0 12500 
12320 HECHO=1 
12330 MX=CVIÍDE$) 

12340 LSET DE*=MKI*(ACTUALX) 

12350 GOSUB 16500:REM ->ESCRITURA INDICE 

12355 NUMERQX=ACTUALX 

12356 GOSUB 16000-.REM -->LECTÜRA INDICE 

12357 LSET NO$=NOKINATIVO* 

12360 LSET DE$=MKI$(MX) 

12370 LSET SI4=MKIÍ(0) 

12380 GOSUB 16500:REM --)ESCRITURA INDICE 
12500 REM 



11510 IF HECHD=0 TREN SOTO 120B0 
12520 REM 

¡1530 ACTUALX=ACTUALX+1 
12540 RETURN 
12550 REM 

15000 REM ::::::::::::::::::::::::::::::: 
15010 REM :: LECTURA FICHERO CLIENTE :: 
15020 REM i:::::::::::::::::::::::::::::: 

15030 REM 

15040 6ET #2,NUMEROS 
15050 RETURN 
15060 REM 

15500 REM :::::::::::::::::::::::::::::::: 
15510 REM:: ESCRITURA FICHERO CLIENTE : 
15520 REM :::::::::::::::::::::::::::::::: 
15530 REM 

¡5540 PUT S2.NUMER0X 
15550 RETURN - 
15560 REM 

16000 REM :::::::::::::::::::::::::::::: 
16010 REM:: LECTURA FICHERO INDICE :: 
16020 REM :::::::::: 
16030 REM 

16040 GET 43.NUMER0X 
16050 RETURN 
16060 REM 

16500 REM ::::::::::::::::::::::::::::::: 
16510 REM :: ESCRITURA FICHERO INDICE :: 
16520 REM 
16530 REM 

16540 PUT 13, NUMERO'/. 

16550 RETURN 


H A _P REPARA 

íoo rem mmtmmttmu 

110 REM tt HASHPREPARft »« 

120 rem mmnnmnmti 

130 REM 

140 FICHERQ*=*GLIENTE.DAT” 
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150 DMS0R=7 

160 OREN "R",l,FICHERO!,90 
170 INPUT “¿DE CUANTOS REGISTROS ESTARA COMPUESTO 
EL FICHERO?";ULTIMO! 

ISO PRIMERQ=2 

190 FIELO 1,2 AS PRIMERO!,2 AS ULTIMO! 

200 LSET PRIMERD!=MKI!(PRIMERO) 

210 LSET ULTIMQí=MKI!(ULTIMG+1) 

220 RUT #1,1 

230 FIELO 1,31 AS CLIENTE!, 33 AS DIRECCION!', 15 AS 
CIUDAD,4 AS TELEFONO!,4 AS PREFIJO,1 AS COLISION! 
250 LSET CLIENTE!:"" 

260 LSET DIRECCION!^" B 
270 LSET CIUDAD!="” 

2S0 LSET TELEF0NCÍ="0" 

290 LSET PREFIJO! 3 "0000" 

300 LSET TIPO!=" " 

310 LSET COLISION!=MKI!í-l) 

320 FOF; X7.=2 TO UL T IM0+1 

330 PUT #2, XX 

340 NEXT U 

350 CLOSE il 

400 REH FICHERO INDICE 

410 FICHERO!:"INDICE.DAT’ 

420 OREN "R",2,FICHERO!,2 
430 FIELD 2,2 AS INDICE! 

435 INDICE%=-1 

440 LSET INDICE!=«KI!(INDICE2) 

450 FOR X=1 TO DIVISOR 
460 RUT #2,2 
4 7 0 NEXT X 
480 CLOSE #2 
490 END 


HA_GESTIÜN 

ioo rem mmtmttmttm 

110 REM tt HASH_GESTION U 

120 rem tnumhtmtntn 

130 rem 


lili OREN "R”, 1,"CLIENTES.DAT”,90 
IDO UFEN "R",2,“INDICE.DAT",2 
160 DIVIS0R=7 
1 /O NUMER07.=1 

1110 FIELD 1,2 AS ACTUAL!,2 AS ULTIMO! 

|70 GOSUB 15000:REM —>LECTURA CLIENTE/1 
700 ACTUAL’=CVI(ACTUAL!) 

,10 ULTIMOX=CVI(ULTIMO!) 

720 GOSUB 500:REM -)BORRADO PANTALLA 

710 GOSUB 800:REM -—>MENU 
740 GN QUEQUIERE GOSUB 2000,4000.6000,8000,9000 
;JO IF QUEQUIERE09 60T0 220 
770 CLOSE 1 
780 CLOSE 2 
290 END 

500 REM :::::::::::::::::::::::: 

510 REM :: BORRADO PANTALLA :: 

520 REM :::::::::::::::::::::::: 

530 REM 
540 CLS 
550 RETURN 

800 REM :::::.. 

B10 REM :: MENU :: 

820 REM :::::::::::: 

830 REM 

840 PRINT ‘1 --> CARGA DE DATOS’ 

850 PRINT 

860 PRINT "2 —> LECTURA CON EL NUMERO DE REGISTRO" 
870 PRINT 

880 PRINT "3 —> LECTURA CON EL NOMBRE DEL CLIENTE" 
B90 PRINT 

900 PRINT "4 —> MODIFICACION DE REGISTRO" 

910 PRINT 

920 PRINT "5 —> BORRADO DE UN REGISTRO" 

930 PRINT 

940 PRINT "9 ~> FIN DEL PROGRAMA" 

950 PRINT 

960 PRINT "?":RESPUESTA!:INPUT!(1):QUE3UIERE= 

ASC(RESPUESTA!)-ASC("O") 

980 RETURN 

1000 REM ::::::::::::::: 
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1010 REM :: TECLADO :: 

1020 REM ::::::::::::::: 

1030 REM 
1040 ALFAt=“' 

1050 GOSUB 15800:REM —>POSICIONft EL CURSOR 
1060 GOSUB 15900:REM —>LECTURA CARACTER 
1070 1F ASC(CARi)=13 THEN GOTO 1210 
1080 IF ASC (CARI) 08 THEN GOTO 1310 

1090 REM-- 

1100 REM -- TECLA DE RETORNO -- 

1110 REM - 

1120 1F LEN(ALFAf)>1 THEN ALFAÍ=LEFT$(ALFA$, 
LEN(ALFA$)-1) ELSE ALFA!=“" 

1130 REM-- 

1140 REM - IMPRESION DEL CAMPO - 

1150 REM - 

1160 GOSUB 15800:REM -OPOSICIONA EL CURSOR 
1170 PRINT ALFA!;” 

1180 GOSUB 15800:REM -OPOSICIONA EL CURSOR 
1190 PRINT ALFA$ 

1200 GOTO 1060 

1210 REM - 

1220 REM - NUEVA ENTRADA - 

1230 REM - 

1240 IF SW=3 THEN RETURN 
1250 G#=0 

1260 FOR X=1 TO LEN(ALFAÍ) 

1270 G#=G#»10+ASC(MID$(ALFA»J,l))-48 
1280 NEXT X 

1290 IF SW=1 THEN PEQUEN0X=CSN6(Gf) ELSE GRANDE#=G# 
1300 RETURN 

1310 REM - 

1320 REM -- CARACTER NORMALES -- 

1330 REM - 

1340 IF SW=3 THEN GOTO 1450 

1350 REM---- 

1360 REM - CARACTER NUMERICO - 

1370 REM - 

1380 IF CAR$<"0" OR CARt>"9° THEN GOTO 1400 
1390 60T0 1490 

1400 REM - 
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1410 REM -- ERROR DE TECLA — 

1420 REM - 

1430 PRINT CHR$(7>; 

1440 60TO 1060 

1450 REM - 

1460 REM -- CARACTER ALFABETICO - 

1470 REM - 

1480 IF CAR*<" " OR CAR$>"z" THEN GOTO 1400 
1490 ALFA$=ALFA$+CAR$ 

1500 60TO 1130 

2000 REM ::::::::::::::::::: 

2010 REM :: CARGA DATOS :: 

2020 REM ::::::::::::::::::: 

2030 REM 

2040 GOSUB 500:REM-/'BORRADO PANTALLA 

2050 PRINT "LA CARGA PARTE CON EL NUMERO: "ACTUALM 

2060 IF ACTUALX<3 THEN GOTO 2140 

2070 NUMERO «=ACTUAL7.-1 

2080 FIELO 1,31 AS CL!,33 AS IN!,15 AS CIt, 

4 AS TE$,4 AS PR*,1 AS TIÍ.2 AS CGÍ 
2090 GOSUB 15000:REM — >LECTURA CARACTER 
2100 PRINT "EL REGISTRO ANTERIOR ESCRITO ES EL 
SI6UIENTE:" 

2110 GOSUB 10000:REM —>MASCARA 
2120 GOSUB 11000:REM —>VISUALIZACION 
2130 PRINT 

2140 INPUT "PULSE <RETURN> PARA INICIAR LA CARGA"; 

RESPUESTA! 

2150 REM 

2160 GOSUB 500:REM -—>BORRADO PANTALLA 
2170 YP0S=20:XP0S=1 

2180 GOSUB 15800:REM —>P0SICIDNA EL CURSOR 
2190 PRINT "PARA ACABAR LA CARGA RESPONDA ’zzzz’ 

A LA PETICION DEL NOMBRE DEL CLIENTE" 

2200 GOSUB 10000:REM — >HASC-ARA 
2210 XP0S=13:YP0S=4 
2220 SW=3 

2230 GOSUB 1000:REM —>TECLAD0 

2240 NOMINATIVO!=ALFAÍ 

2250 IF NOMINATIVO$="zzzz" THEN RETURN 

2260 IF ACTUALXMJLTIMOX THEN INPUT "NO PUEDO 
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SEGUIR.SE HA SUPERADO LA DIMENSION MAXIMA 
DEL FICHERO.PULSE <RETURN>";RESPUESTA»:RETURN 
2270 GOSUB 12000:REM —>CALCULO 
2280 GOSUB 13000:REM —>BUSQUEDA 
2290 IF FIN=1 THEN GOTO 2320 
2300 INPUT "ESTE CLIENTE YA EXISTE.NO PUEDO 
INTRODUCIRLO.PULSE <RETURN>";RESPUESTA» 

2310 RETURN 

2320 CLIENTEÍ=NOMINATIVO* 

2330 SW=3 
2340 XP0S=13 
2350 YP0S=6 

2360 GOSUB 1000:REM —>TECLADO 
2370 DIRECCIONt=ALFA» 

2380 SW=3 
2390 XP0S=13 
2400 YP0S=9 

2410 GOSUB 1000:REM —>TECLADO 

2420 CIUDAD»=ALFAÍ 

2430 SW=2 

2440 XP0S=13 

2450 YP0S=10 

2460 GOSUB 1000: REM —>TECLADO 
2470 TELEFONO#=GRANDE# 

2480 SW=3 
2490 XP0S=13 
2500 YP0S=12 

2510 GOSUB 1000:REM —>TECLADO 
2520 PREFIJO$=ALFñ$ 

2530 TIPO$=- » 

2540 GOSUB 15200:REM —>LECTURA HASH 
2550 COLISION»=CVI(HASHÍ) 

2560 LSET HASHÍ=HKI»(ACTUALE) 

2570 GOSUB 15700:REM —>ESCRITURA HASH 
2580 FIELD 1.31 AS CL»,33 AS INÍ.15 AS CI», 

4 AS TE», 4 AS PRÍ,1 AS TI», 2 AS CO» 

2590 LSET CL$=CLIENTE» 

2600 LSET IN$=DIRECCIQN$ 

2610 LSET CI»=CIUDADÍ 
2620 LSET TEÍ=NKS$(TELEFONO#) 

2630 LSET PRt=PREFIJO* 



7640 LSET TIÍ=TIPOÍ 

.'650 LSET C0» r MKI»(CGLI5I0Nt) 

7660 NUMERO?. ^ACTUALE 

7670 GOSUB 15500:REM —^ESCRITURA CLIENTE 

76B0 ACTUALE=ACTUALE+1 

2690 FIELD 1,2 AS ACTUAL»,2 AS ULTIMO» 

7700 LSET ACTUALÍ=MKI»(ACTUALE) 

7710 LSET ULTIMOt=MKI»(ULTIMOE) 

7720 NUMERO’M 

7730 GOSUB 15500:REM —>ESCRITURA CLIENTE/1 
7740 GOTO 2150 

4000 REM ::::::::::::::::::::::::::::::::::::: 
4010 REM :: LECTURA CON EL NUMERO DE REGISTRO 

4020 REM ::::::::: .. 

4030 REM 

4040 YP0S=20:XP0S=1 

4050 GOSUB 15800:REM ->POSICIONA EL CURSOR 
4060 PRINT "NUMERO DEL PRIMER REGISTRO:" 

4070 SW=1 
4080 XP0S=32 
4090 YP0S=20 

4100 GOSUB 1000:REM —>TECLADO 
4110 INICIOE=PEQUENOE+1 
4120 YP0S=20:XP0S=1 

4130 GOSUB 15800:REM ->P0S1CI0NA EL CURSOR 
4140 PRINT "NUMERO DEL ULTIMO REGISTRO: 

4150 SW=1 
4160 XP0S=32 
4170 YP0S=20 

4180 GOSUB 1000:REM —/TECLADO 
4190 ALTX-PEQUEN07.+1 

4200 IF ALT7.)ACTUALM THEN ALT%=ACTUAL%-1 
4210 GOSUB 11500:REM ->LISTA 
4220 IF FIN=1 THEN RETURN 
4230 REM 

4240 GOSUB 500:REM —-OBORRADO PANTALLA 
4250 GOSUB 10000:REM — >MASCARA 

4260 GOSUB 11000:REM —>VISUALIZACION 

4270 YP0S=20:XP0S=1 

4280 GOSUB 15800:REM —>POSICIQNA EL CURSOR 

4290 GOSUB 11500:REM ->LISTA 
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4300 PRITN DESPACIO) PARA SEGUIR,<ESC> PARA 
TERMINAR" 

4310 RESPUESTA*=INPUT*(1) 

4320 IF ASC(RESPUESTA*)=27 OR FIN=1 OR INICIO*) 
ALT7.+1 THEN RETURN 
4330 GOTO 4230 
6000 REM :::::::::::::: 

6010 REM :: NOMBRE :: 

6020 REM ::::.::::: ^ 

6030 REM 
6040 YP0S=20 
6050 XP0S=1 

6060 GOSUB 15800: REM ->POSICIONA EL CURSOR 
6070 PR1NT "NOMBRE DE CLIENTE :* 

6080 SN=3 
6090 XP0S=32 
6100 YP0S=20 

6110 GOSUB 1000:REM —>TECLADO 
6120 NOMINATIVO*=ALFA* 

6125 GOSUB 12000:REM —>CALCULO HASH 
6130 IF LEN(NOMINATIVOS)=31 THEN GOTO 6150 
6140 NOMINATIVOt=NOMINATIVQ*+" “:GOTO 6130 
6160 GOSUB 13000:REM —>BISGUEDA 
6170 IF FIN=1 THEN GOTO 6250 
6180 GOSUB 500:REM -—>BORRA PANTALLA 
6190 GOSUB 10000:REM —>MASCARA 
6200 GOSUB 11000:REM —>VISUALIZACION 
6210 XPDS=1:YP0S=20 

6220 GOSUB 15800:REM —>POSICIONA EL CURSOR 
6230 INPUT "PULSA CRETURN) PARA SEGUIR"¡RESPUESTA* 
6240 RETURN 
6250 REM 

6260 YPOS=20:XPDS=1 

6270 GOSUB 15800:REM —>POSICIONA EL CURSOR 
6280 INPUT "NO EXISTE ESTE CLIENTE.PULSE <RETURN>"; 

RESPUESTA* 

6290 RETURN 

8000 REM :::::::::::::::::::: 

8010 REM:: MODIFICACION :: 

8020 REM :::::::::::::::::::: 

8030 REM 
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8040 GOSUB 500:REM ->BORRADO PANTALLA 

B050 YP0S=20:XP0S=1 

0060 GOSUB 15800:REM —íPOSICIONA EL CURSOR 
8070 PRINT "CLAVE DE BUSQUEDA:" 

B080 SN=3 

8090 XP0S=23:YP0S=20 

8100 GOSUB 1000: REM —(¡TECLADO 

8110 NOMINATIVO*=ALFA* 

8120 GOSUB 12000: REM —OCALCULO 

8130 IF LEN(NOMINATIVOS)=31 THEN GOTO 9150 

8140 NOMINATIVO*=NOMINATIV0*+ M ":GGTO 8130 

8150 GOSUB 13000:REM —>BUSQUEDA 

8160 IF FIN=0 THEN GOTO 8210 

8170 YP0S=20:XP0S=1 

8180 GOSUB 15800:REM —XPOSICIONA EL CURSOR 
B190 INPUT "NO EXISTE ESTE CLIENTE.PULSE (RETURN)" 
RESPUESTA* 

8200 RETURN 
8210 REM 

8220 GOSUB 10000:REM —XMASCARA 
8230 GOSUB 11000:REM VISUALI2ACI0N 
8240 YP0S=2O:XPOS=l 

8250 GOSUB 15800: REM ->POSICIONA EL CURSOR 
8260 PRINT "PULSE <ESC> PARA MODIFICAR EL CAMPO, 
(RETURN) PARA SEGUIR" 

8270 YP0S=6:XP0S=11 

8280 GOSUB 15800:REM ->POSICIONA EL CURSOR 
8290 GOSUB 15900:REM —XLECTURA CARACTER 
9300 IF ASC (CAR*) 027 THEN GOTO 8380 
8310 YP0S=6:XP0S=13 

8320 GOSUB 15800:REM -OPOSICIONA EL CURSOR 

8330 PRINT " 

■ 

B340 SH=3 

8350 XP0S=13:YP0S=6 

8360 GOSUB 1000:REM —>TECLAD0 

8370 LSET IN*=ALFA* 

8380 REM 

8390 YP0S=8:XP0S=11 

8400 GOSUB 15800:REM —>P0SICI0NA EL CURSOR 
8410 GOSUB 15900: REM -¡-LECTURA CARACTER 















8420 IF ASC(CARO027 THEN GOTO 8500 
8430 YPQS=S:XP0S=13 

8440 GOSUB 15800:REM -OPOSICIONA EL CURSOR 
8450 PRINT " 

a 

8460 SW=3 

8470 GOSUB 15800:REH —>POSICIDNñ EL CURSOR 
8480 GOSUB 1000:REM —'/TECLADO 
8490 LSET CI$=ALFA* 

8500 REH 

8510 YP0S=10:XPOS=11 

8520 GOSUB 15800:REM —>P03ICIGNA EL CURSOR 
8530 60SUB 15900:REM —>LECTURA CARACTER 
8540 IF ASC (CARI) 027 THEN GOTO 8Ó20 
8550 YP0S=10:XP0S=13 

8560 GOSUB 15800:REM -OPOSICIONA EL CURSOR 
8570 PRINT " 

N 

8580 SW=2 

8590 XP0S=13:YP0S=10 

8600 GOSUB 1000:REM —>TECLADO 

8610 LSET TEÍ=MKS$(GRANDE*) 

8620 REM 

8630 YP0S=12:XP0S=11 

8640 GOSUB 15800: REM -OPOSICIONA EL CURSOR 
8650 GOSUB 15900: REM -OLECTURA CARACTER 
8660 IF ASC!CAR$!<>27 THEN GOTO 8740 
8670 YF'0S=12: XF'0S=13 

8680 GOSUB 15800: REM -OPOSICIQNA EL CURSOR 
8690 PRINT “ 

a 

8700 SN=3 

8710 YP0S=12:XP0S=13 
8720 GOSUB 1000:REM —>TECLADO 
8730 LSET PR$=ALFAt 
8740 REM 

8750 GOSUB 15800:REM -->POSICIONA EL CURSOR 
8760 RETURN 

9000 REM ::::::::::::::::: 

9010 REM:: ANULACION :: 

9020 REM ::::::::::::::::: 

100 




9030 REM 

9040 GOSUB 500:REM ->B0RRAD0 PANTALLA 

9050 YP0S=20:XP0S=1 

9060 GOSUB 15800:REM —>P0SICI0NA EL CURSOR 
9070 INPUT "CLAVE A BUSCAR:NOMINATIVO* 

9080 IF LEN(NOMINATIVO*)=31 THEN GOTO 9100 
9090 NOMINATIVQt=NOMlNATIVO$+ H "¡GOTO 9080 
9100 GOSUB 12000:REM —>CALCULO 
9110 GOSUB 13000:REM —>BUSQUEDA 
9120 IF FIN=1 THEN GOTO 9250 
9130 GOSUB 10000:REM —/'MASCARA 
9140 GOSUB 11000:REM ->VISUALIZACION 
9150 YPCS=20:XP0S=1 

9160 GOSUB 15800: REM ->POSICIQNA EL CURSOR 
9170 PRINT "¿QUIERE BORRARLO?!S/N)“: 

9180 GOSUB 15900:REM —>LECTURA CARACTER 
9190 IF CARÍ="S” OF: CAR*="s" THEN GOTO 9210 
9200 RETURN 
9210 REM 

9220 LSET TI*="C" 

9230 GOSUB 15500:REM —>ESCRITURA CLIENTE 
9240 RETURN 
9250 REM 

9260 YP0S=20:XP0S=1 

9270 INPUT "NO EXISTE ESTE CLIENTE.PULSE 
<RETURN>";RESPUESTA* 

92E0 RETURN 
10000 REM 

10010 REM:: MASCARA :: 

10020 REH ::::::::::::::: 

10030 REM 

10040 YPQS=6:XP0S=1 

10050 GOSUB 15800:REM ->POSICIONA EL CURSOR 
10060 PRINT "CLIENTE :” 

10070 YP0S=6:XP0S=1 

10080 GOSUB 15800:REM ->POSICIONA EL CURSOR 
10090 PRINT "DIRECCION :" 

10100 YPGS=8:XP0S=1 

10110 EOSUB 15800:REM -ÍPO.SICIONA EL CURSOR 
10120 PRINT "CIUDAD :" 

10130 YP0S=10:XP0S=1 
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10140 60SUB 15300: REM -->P0SICI0NA EL CURSOR 
10150 PRINT "TELEFONO 
lOléO YF0S=12:XP0S=1 

10170 SOS'JB 15800: REM ->POSICIONA EL CURSOR 
10130 PRINT "PREFIJO 
10190 YP0S=14:XP0S=1 

10200 50SU8 15800:REM —>POSICIONA EL CURSOR 
10210 PRINT "COLISION :“ 

10220 RET'JRN ^ 

11000 REM ::::::::::::::::::::: 

11010 REM:: VISUALIZACION :: 

21020 REM ::::::::::::::::::::: 

11030 REM 

11040 YP0S=4:XP0S=13 

11050 GOSUB 15800:REM ->P0SICI0NA EL CURSOR 
11060 PIRNT CL$ 

11070 IF TIÍO” * THEN PRINT "BORRADO” 

11080 YP0S=6:XP0S=13 

11090 GOSUB 15800:REM —>P0SICI0NA EL CURSOR 
11100 PRINT IN« 

11110 YP0S=8: XF'0S=13 

11120 GOSUB 15800:REM ->POSICIONA EL CURSOR 
11130 PRINT CIt 
11140 YP0B=10:XPQS=13 

11150 GOSUB 15800:REM —>P0SIC10NA EL CURSOR 
11160 TELEFONO#=CVI<TE») 

11170 PRINT TELEFONO! 

11180'YPOS=12:XPOS=i3 

11190 GOSUB 15800:REM —>POSICIONA EL CURSOR 
11200 PRINT RR» 

11210 YP0S=14:XP0S=13 

11220 GOSUB 15800:REM —>POSICIONA EL CURSOR 
11230 C0LISI0N7.=CVI(C0$) 

11240 PRINT COLISION* 

11250 RETURN 

11500 REM ::::.. 

11510 REM:: LISTA :: 

11520 REM ::::::::::::: 

11530 REM 
11540 FIN=0 

11550 IF INICIO*>=ACTUALZ OR INICIOLO THEN GOTO 11610 
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11560 FIELD 1,31 AS CL$,33 AS INI,15 AS CI$, 

4 AS TE», 4 AS PR$,1 AS TI»,2 AS CO* 

11570 NUMEROX=INICIOX 

11580 60SUB 15000:REM —>LECTURA CLIENTE 

11590 INICI0Z-INICIDZ«1 

11600 RETURN 

11610 FIN=1 

11620 RETURN 

12000 REM :::::::::::::::::::::. 

12010 REM :: CALCULO NUMERO HASH :: 

12020 REM ::::::::::::::::::::. 

12030 REM 
12040 X=0:Y=0 

12050 FOR N=! TO LENíNOMINATIVOS) 

12060 C=ASC(MIDS(NOMINATIVOS,N,1)) 

12070 IF N-(INT(N/2)S2)=0 THEN Y=Y+C ELSE X=X+C 
12080 NEXT N 

12090 Rl=X-(INT(X/256)S256) 

12100 R2=Y-(INT(Y/256)S256) 

12110 Z=R2S256+R1 

12120 HASH=INT(Z-(INT(Z/DIVISOR)«DIVISOR)) 

12130 IF HASH=0 THEN HASH=DIVISOR 
12140 RETURN 

13000 REM ::::.::: 

13010 REM :: BUSQUEDA :: 

13020 REM :::::::::::::::: 

13030 REM 
13040 FIN=0 

13050 GOSUB 15200:REM — >LECTURA HASH 
13060 CUALX=CVI(HASHS) 

13070 REM 

13080 IF CUAL%=-1 THEN FIN=1¡RETURN 
13090 NUMERuV.-CUALX 

13100 FIELD 1,31 AS CLS.33 AS INS,15 AS CI», 

4 AS TE»,4 AS PR»,1 AS TI»,2 AS CO» 

13110 GOSUB 15000:REM —>LECTURA CLIENTE 
13120 IF NCMINATIVOS=CLS THEN RETURN 
•3130 CUALZ=CVIICOS) 

13140 GOTO 13070 

15000 REM ::::::::::::::::::::::::::::::: 

15010 REM :: LECTURA FICHERO CLIENTE :: 
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15020 REM ... 

15030 REM 

15040 SET #1,NUMEROS 
15050 RETURN 
15090 REM 

15200 REM ... 

15210 REM :: LECTURA FICHERO HASH :: 
15220 REM i:::::::::::::::::::::;::::; 
15230 REM 

15240 FIELO 2,2 AS HASH» 

15250 GET 12,HASH 
15260 RETURN 
15270 REM 

15500 REM ¡s¡¡¡ s 

15510 REM :: ESCRITURA FICHERO CLIENTE 

15520 REM .. 

15530 REM 

15550 RUT #1, NUMERO'/. 

15560 RETURN 
15590 REM 
15700 REM 

15710 REM :: ESCRITURA FICHERO HASH :: 

15720 REM 

15730 REM 

15740 RUT #2,HASH 

15750 RETURN 

15760 REM 

15800 REM .. .. 

15810 REM :: POSICIONA EL CURSOR :: 

15820 REM ::::... 

15830 REM 

15840 LOCATE YPOS.XPOS 
15850 RETURN 
15860 REM 

15900 REM ::::::.. 

15910 REM :: LECTURA CARACTER :: 

15920 REM i::::::::::::::::::::::; 

15930 REM 

15940 CAR*=INPUTí(l) 

15950 RETURN 
15960 REM 



»IA_COMF’ACTA 

loo rem mtmmttmu 

110 REM» HA_COMPACTA * 

120 rem mmmmimi 

130 REM 
140 DIVIS0R=7 

150 QPEN -R-,1,"CLIENTE.VEC\90 
IbO OPEN "R",2,"INDICE.DAT",2 
170 QPEN "R",3,"CLIENTES.DAT",90 
180 FIELD 1,2 AS Jí,2 AS X* 

190 SET #1,1 
200 J’/.=CVI (Jí) 

210 FIELD 1,31 AS CLÍ,33 AS IN$,15 AS CU,4 AS TEÍ,4 
AS PRÍ,1 AS Til,2 AS CO* 

220 FIELD 3,2 AS ACTUAL*,2 AS ULTIMO* 

230 SET 13,1 

240 ULTIMOX=CVI(ULTlMOt) 

250 FIELD 3,31 AS CLI*,33 AS IND*,15 AS CITÍ.4 AS 
TELÍ,4 AS PREt,1 AS TIP*,2 AS COL* 

260 ACTUAL7.=2:K=2:J=2 
270 REM 
280 GET #1,J 

290 IF TItO" " THEN PRINT CL*;" BORRADO":J=J+1: 

60TG 490 

300 K=K+1:PRINT CL* 

310 NOMINATIVO$=CL* 

320 SOSUB 12000:REM —>CALCULO 
330 FIELD #2,2 AS HASH* 

340 SET #2,HASH 
350 HHt=HASH* 

360 LSET CO*=HASH* 

370 LSET HASH*=MKI*(ACTUALZ) 

3B0 PUT #2,HASH 
390 LSET COL*=HH* 

400 LSET CLIt=CLÍ 
410 LSET INDt=IN* 

420 LSET CITt=CI* 

430 LSET TEL*=TE* 

440 LSET PREt=PR* 

450 LSET TIPí=" " 


104 


105 





















































460 RUT #3,ACTUALX 
470 ACTUAL%=ACTUAL%+1 
480 J=J+1 
490 REH 
500 6ET II,J 

510 IF ACTUALKULTIMOX THEN GOTO 560 
520 PRINT "HAY ";ACTUALX-1;“ REGISTROS ACTIVOS 
EN UN FICHERO GUE LOS PREVEE ULTIMO*-!; “ í" 
530 PRINT "NO PUEDO SEGUIR" 

540 INPUT "PULSE <RETURN>";RESPUESTA* 

550 GOTO 620 
560 REM 

570 IF J<IX THEN 60T0 290 

580 FIELD 3,2 AS ACTUAL$,2 AS ULTIMO» 

590 LSET ACTUAL» 5 MK1*(ACTUAL*-1) 

600 LSET ULTIMO*=MKI*(ULTIMOX) 

610 PUT 13,1 
620 REM 
630 CLOSE #1 
640 CLOSE 12 
650 CLOSE 13 
660 END 

12000 REM i:::::::::::::::::::: .. 

12010 REM :: CALCULO NUMERO HASH :: 

12020 REM ::::::::::::::::::::: . 

12030 REM 
12040 X=0:Y=0 

12050 FOR N=1 TO LEN!NOMINATIVO») 

12060 C=ASC(MIDt(NOMINATIVO»,N,1)) 

12070 IF N-(INT(N/2)*2)=0 THEN Y=Y+C ELSE X=X+C 
12080 NEXT N 

12090 R1=X-(INT(X/256!1256) 

12100 R2=Y-(INT(Y/256)1256) 

12110 Z=R2*256+R1 

12120 HASH=INT! Z-(INT! Z/DI VISOR XDI VISOR)) 

12130 IF HASH=0 THEN HASH=DIVISOR 
12140 RETURN 

11610 G0SU8 15000:REM —>LECTURA CLIENTE NUEVO 
12530 ACTUALX=ACTUALX+1 
12540 RETURN 
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A L _P REPARA 

100 REM <***»»»»*»»»***» 

110 REM» AL_PREPARA » 

120 REM I»»»»»»»»»»»»»»» 

130 REM 

140 FI CHERO* 5 “CL IENTES.DAT * 

160 OREN "R”,l,FICHERO»,92 
170 INPUT "óDE CUANTOS REGISTROS ESTARA COMPUESTO 
EL FICHERO?";ULTIMO* 

180 PR1MERG=2 

190 FIELD 1,2 AS PRIMERO»,2 AS ULTIMO* 

200 LSET PRIMERQ*=MKI*(PRIMERO) 

210 LSET ULTWOt=MKI$(ULTIMO) 

220 PUT 11,1 

230 FIELD 1.31 AS CLIENTE»,33 AS DIRECCION»,15 AS 
CIUDAD»,4 AS TELEFONO»,4 AS PREFIJO»,1 AS TIPO», 
2 AS IZQUIERDO»,2 AS DERECHO» 

250 LSET CLIENTE* 5 "" 

260 LSET DIRECCION* 5 "" 

270 LSET CIUDAD* 5 "" 

280 LSET TELEF0N0» 5 "0" 

290 LSET PREFIJ0» 5 "0000" 

300 LSET TIPO*=" " 

310 IZGUIERDO*=MKI*(0) 

315 DERECHD* 5 MKIt(0) 

320 FOR XX=2 TO ULTIMO+1 
330 PUT II,x* 

340 NEXT X7. 

350 CLOSE II 
400 END 


AL_GESTION 

100 REM UttttntttMtt 

110 REM « AL.GESTION » 

120 rem tttttttttmmt 

130 REM 

140 OREN "R’,1,"CLIENTES.DAT",92 
170 NUMERO* 5 ! 
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180 FIELD 1,2 AS ACTUAL!,2 AS ULTIMO! 

190 GOSUB 15000:REM —>LECTURfi CLIENTE/1 
200 ACTUALX=CVI(ACTUAL!) 

210 ULTIM07.=CVI(ULTIMO!) 

220 GOSUB 500:REM -—>BORRADG PANTALLA 

230 GOSUB 800:REM -—>MENU 

240 ON BUE3UIERE GOSUB 2000,4000,6000,8000,9000 

250 IF QUEGIEF.E09 THEN GOTO 220 

270 CLGSE 1 ^ 

290 END 

500 REM i:::::::::::::::::::::;: 

510 REM:: BORRADO PANTALLA :: 

520 REM i::::::::::::::::::;:::: 

530 REM 

540 CLS 

550 RETURN 

800 REN :::::::::::: 

810 REM :: MENU :: 

820 REM 
830 REM 

840 PRINT ”1 ~> CARGA DE DATOS" 

850 PRINT 

860 PRINT “2 —> LECTURA CON EL NUMERO DE REGISTRO" 
870 PRINT 

880 PRINT "3 --> LECTURA CON EL NOMBRE DE CLIENTE" 
890 PRINT 

900 PRINT "4 --> MODIFICACION DE UN REGISTRO" 

910 PRINT 

920 PRINT "5 -> BORRADO DE UN REGISTRO" 

930 PRINT 

940 PRINT "9 ~> FIN DEL PROGRAMA" 

950 PRINT 

960 PRINT *?’:RESPUESTñí=INPUT!(1):QUEQUIERE=ASC( 
RESPUESTA!)-ftSC í"O") 

980 RETURN 

1000 REM :::::::::::::: 

1010 REM :: TECLADO :: 

1020 REM i::::::::::;:: 

1030 REM 
1040 ALFAí="" 

1050 GOSUB 15800:REM —>PDSICIONA EL CURSOR 



|n60 GOSUB 15900:REM —JLECTURA CARACTER 
1070 IF ASC(CAR!)=13 THEN GOTO 1210 
1080 IF ASC(CARÍ) 08 THEN GOTO 1310 

1090 REM - 

1100 REM — TECLA DE RETORNO — 

1110 REM - 

1120 IF LEN(ALFA*) >1 THEN ALFA*=LEFT*< ALFA*, LEN( 
ALFA*)-1) ELSE ALFA!="” 

1130 REM - 

1140 REM -- IMPRESION DEL CAMPO - 

1150 REM - 

1160 GOSUB 15800:REM —>POSICIONA EL CURSOR 
1170 PRINT ALFA!;" "; 

1180 GOSUB 15800:REM —>POSICIONA EL CURSOR 
1190 PRINT ALFA! 

1200 GOTO 1060 

1210 REM-- 

1220 REM -- NUEVA ENTRADA — 

1230 REM —.. 

1240 IF SW=3 THEN RETURN 
1250 Gi=0 

1260 FOR X=1 TO LEN(ALFA!) 

1270 G#=G#*10+ASC(MID*(ALFA*,X,1))-48 
1280 NEXT X 

1290 IF SW=1 THEN PEQUEN0X=CSN6(G#> ELSE GRANDE#=G# 
1300 RETURN 

1310 REM - 

1320 REM -- CARACTER NORMAL — 

1330 REM - 

1340 IF SW=3 THEN GOTO 1450 

1350 REM - 

1360 REM - CARACTER NUMERICO ~ 

1370 REM - 

1380 IF CAR*<"0" OR CAR!>"9" THEN GOTO 1400 
1390 GOTO 1490 

1400 REM --- 

1410 REM -- ERROR DE TECLA — 

1420 REM - 

1430 PRINT CHR*(7); 

1440 GOTO 1060 

1450 REM - 
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1460 REM -- CARACTER ALFABETICO -- 

1470 REM . 

1480 IF CARí<" " OR CAR$>“z" THEN GOTO 1400 
1490 ALFA»=ALFA»+CAR» 

1500 GOTO 1130 

2000 REM ::::::::::::::::::::: 

2010 REM:: BUSQUEDA DATO :: 

2020 REM ::::::. 

2030 REM 

2040 GOSUB 500:REM ->BORRABO PANTALLA 

2050 PRINT “LA CARGA PARTE CON EL NUMERO:"; 

ACTUALM 

2060 IF ACTUALX-K3 THEN GOTO 2140 
2070 NUMEROX=ACTUALM 

2080 FIELD 1,31 AS CL*,33 AS INI,15 AS CI*,4 AS TE», 
4 AS PR», 1 AS TI»,2 AS SI$,2 AS DE» 

2090 GOSUB 15000:REM —>LECTURA CLIENTE 
2100 PRINT “EL REGISTRO ANTERIOR ESCRITO ES EL 
SIGUIENTE:" 

2110 GOSUB 10000:REM —>MASCARA 
2120 GOSUB 11000:REM --(VISUALIZACION 
2130 PRINT 

2140 INPUT "PULSE <RETURN> PARA INICIAR LA CAR6A"; 

RESPUESTA» 

2150 REM 

2155 FIELD 1,31 AS CLI.33 AS INt.15 AS CI*,4 AS TES, 
4 AS PF:$,1 AS Til,2 AS SI»,2 AS DE» 

2160 GOSUB 500:REM -—>BORRADO PANTALLA 
2170 YP0S=2C>: XP0S=1 

2180 GOSUB 15800: REM ~>POSICIONA EL CURSOR 
2190 PRINT "PARA FINALIZAR LA CARGA,A LA PETICION 
DEL NOMBRE DEL CLIENTE RESPONDA ’zzzz’" 

2200 GOSUB 10000:REM —>MASCARA 
2210 XP0S=13:YP0S=4 
2220 SW=3 

2230 GOSUB 1000:REM —>TECLADO 
2240 NOMINATIVO»="zzzz" THEN RETURN 
2260 IF ACTUALDULTIMOÍ THEN INPUT "NO PUEDO SEGUIR 
,PUES SE HA SUPERADO LA DIMENSION MAXIMA DEL 
FICHERO.PULSE CRETURN)”;RESPUESTA* 

2280 GOSUB 13000:REM —>CLAVE 


2290 IF ENC=0 THEN GOTO 2310 

2296 60SUB 15800:REM —>POSICIONA EL CURSOR 

2300 INPUT “ESTE CLIENTE YA EXISTE.NO PUEDO 

INTRODUCIRLO.PULSE (RETURN) RESPUESTA» 
2305 RETURN 

2310 GOSUB 12000:REM —>ACT_NUDO 
2320 CLIENTE»=NOMINATIVGÍ 
2330 SW=3 
2340 XP0S=13 
2350 YP0S=6 

2360 GOSUB 1000:REM —>TECLADO 

2370 DIRECCION»-ALFAt 

2380 SW=3 

2390 XP0S=13 

2400 YF0S=8 

2410 GOSUB 1000:REM —(TECLADO 

2420 CIUDADí=ALFAt 

2430 SW=2 

2440 XF'0S=13 

2450 YP0S=10 

2460 GOSUB 1000:REM —(TECLADO 

2470 TELEFGN0I-6RANDEI 

2480 SW=3 

2490 XP0S=13 

2500 YPQS=12 

2510 GOSUB 1000:REM --(TECLADO 
2520 PREFIJO»=ALFA» 

2530 TIPO»=" " 

2590 LSET CLÍ=CLIENTE» 

2600 LSET IN»=DIRECCION» 

2610 LSET CI»=CIUDAD$ 

2620 LSET TE»=MKSÍ(TELEFONO#) 

2630 LSET PR»=PREFIJO» 

2640 LSET TI»=TIPOt 
2660 NUMEROX=ACTUALX 

2670 GOSUB 15500-.REM -(ESCRITURA CLIENTE 

2680 ACTUALX=ACTUALX+1 

2690 FIELD 1,2 AS ACTUAL»,2 AS ACTUAL» 

2700 LSET ACTUAL»=NKI»(ACTUAL») 

2710 LSET ULTIMOí=MKI» (ULTIMO'/.) 

2720 NUMER0X=1 
















2730 GOSUB 15500:REM —>ESCRITURA ClIENTE/1 
2740 GOTO 2150 
4000 REM 
4010 REM 
4020 REM 
4030 REM 
4040 YP0S=20:XP0S=1 

4050 GOSUB 15800: REM ->POSICIONA EL CURSOR 
4060 PRINT ‘NUMERO DEL PRIMER REGISTRO:" 

4070 SH*1 
4030 XPGS=32 
4090 YF'0S=20 

4100 GOSUB 1000:REM —>TECLftDO 
4110 INICI07.=PEQUEN07.+ 1 
4120 YP0S=20:XP0S=1 

4130 GOSUB 15800:REM —>POSICIONfl EL CURSOR 
4140 PRINT ‘NUMERO DEL ULTIMO REGISTRO" 

4150 SW=1 
4160 XPOS=32 
4170 YP0S=20 

4180 GOSUB 1000:REM —>TECLADO 
4190 ALTX=PEQUENO‘/.+l 

4200 IF ALTXXACTUALM THEN ALTZ=ACTUALZ-1 
4210 GOSUB 11500:REM —>LISTA 
4220 IF FIN=1 THEN RETURN 
4230 REM 

4240 GOSUB 500:REM ->BORRADO PANTALLA 

4250 GOSUB 10000:REM —)MASCARA 
4260 GOSUB 11000:REM --MSUALIZACION 
4270 YP0S=20:XP0S=1 

4280 GOSUB 15800:REM —>POSICIONA EL CURSOR 
4290 GOSUB !1500:REM ->LISTA 
4300 PRINT ‘{ESPACIO) PARA CONTINUAR,<ESC> PARA 
TERMINAR" 

4310 RESPUESTA$=INPUT$(1) 

4320 IF ASC(RESPUESTAS) =27 OF: FIN=1 OR INICIO?.) 

ALT%+1 THEN RETURN 
4330 GOTO 4230 
6000 REM 

6010 REM:: NOMBRE :: 

6020 REM :::::::::::::: 


LECTURA CON EL NUMERO DE RE6ISTR0 


6030 REM 
6060 YPQS=20 
6070 XP0S=1 

6080 GOSUB 15800:REM —>POSICIONA EL CURSOR 
6090 PRINT "NOMBRE DEL PRIMER CLIENTE :" 
6100 SW=3 
6110 XP0S=32 
6120 YP0S=2O 

6130 GOSUB 1000:REM —>TECLADO 
6140 PARTIDA$=ALFA$ 

6150 YP0S=20 
6160 XP0S=1 

6170 GOSUB 15800:REM —>POSICIONA EL CURSOR 
6180 PRINT "NOMBRE DEL ULTIMO CLIENTE : 

M 

6190 SW=3 
6200 XP0S=32 
6210 YP0S=20 

6220 GOSUB 1000:REM —>TECLADO 

6230 TERMINOt=ALFA$ 

6231 IF LEN(TERMINOS)>=31 THEN SOTO 6235 

6232 TERMINOí=TERMINO$+" "¡GOTO 6231 
6235 NOMINATIVO$=PARTIDO$ 

6240 GOSUB 13000:REM ->CLAVE 
6250 IF FIN=1 THEN GOTO 6500 

6260 GOSUB 500:REM ->B0RRADQ PANTALLA 

6270 GOSUB 10000: REM --MASCARA 
6280 GOSUB 11000:REM —>VISUALIZACION 
6282 ESTOX=PROXIMQX 
6282 IF EST02=0 THEN GOTO 6290 
6287 GOSUB 13500:REM —>BUSQUEDA 
6290 YP0S=20:XP0S=1 

6300 GOSUB 15800:REM —>POSICIONA EL CURSOR 
6310 PRINT "{ESPACIO) PARA CONTINUAR,<ESC> 
PARA TERMINAR:"; 

6320 GOSUB 15900:R.EM —>LECTURA CARACTER 
6330 IF ASC(CAR*)=27 THEN GOTO 6380 
6340 IF CL$)TERMINO$ THEN GOTO 6380 
6350 IF ESTOCO THEN GOTO 6380 
6370 GOTO 6260 
6380 REM 
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6400 RETURN 
6410 REH 
6500 REH 

6510 GOSUB 13500:REM —/'BUSQUEDA 
6520 FIN=0 
6530 GOTO 6260 
6540 REH 

8000 REH .. 

8010 REH :: MODIFICACION :: 

8020 REM.. 

8030 REM 

8040 GOSUB 500:REH -—HORRADO PANTALLA 
8050 YP0S=20:XP0S=1 

8060 GOSUB 15800: REM->POSICIONA EL CURSOR 
8070 PRINT "CLAVE A BUSCAR:" 

8080 SM=3 

8090 XP0S=23:YF'OS=20 

8100 GOSUB 100:REM —>TECLAD0 

8110 NOMINATIVOS=ALFA$ 

8130 IF LEN(NOMINATIVOS)=31 THEN GOTO 8150 
8140 NOMINATIVOS=NOMINATIVOS+“ "¡GOTO 8130 
8150 GOSUB 1300:REM —>CLAVE 
8160 IF FIN=0 THEN GOTO 8210 
8170 YP0S=20:XP0S=1 

8180 GOSUB 15800:REM —>POSICIQNA EL CURSOR 
8190 INPUT "NOEXISTE ESTE CLIENTE.PULSE <RETURN>"¡ 
RESPUESTA» 

8200 RETURN 
8210 REH 

8220 GOSUB 10000:REM —>MASCARA 
8230 GOSUB !1000:REM —VISUALIZACION 
8240 YP0S=20:XP0S=1 

8250 GOSUB 15800:REM ->POSICIONA EL CURSOR 
8260 PRINT "PULSE CESO PARA MODIFICAR EL CAMPO. 

(RETURN) PARA SEGUIR" 

8270 YP0S=6:XP0S=11 

8280 GOSUB 15800:REM —>POSICIONA EL CURSOR 
8290 GOSUB 15900:REM —>LECTURA CARACTER 
8300 IF ASC(CARS)<>27 THEN GOTO 8380 
8310 YPQS=6:XP0S=13 

8320 GOSUB 15B00:REM ->P0SICI0NA EL CURSOR 



8330 PRINT “ 

M 

8340 SW=3 

8350 XPOB=13:YP0S=6 
8360 GOSUB 1000:REM —>TECLADO 
8370 LSET INS=ALFAS 
8380 REM 

8390 YP0S=8:XP0S=11 

8400 GOSUB 15800:REM ->POSICIONA EL CURSOR 
8410 GOSUB 15900:REM —>LECTURA CARACTER 
8420 IF ASC(CARS)<>27 THEN GOTO 8500 
8430 YPOS=B:XP0S=13 

8440 GOSUB 15800:REM —>POSICIONA EL CURSOR 
8450 PRINT " 

R 

8460 SW=3 

8470 GOSUB 15800:REM ->P0SICI0NA EL CURSOR 
8480 GOSUB 1000:REM —¡TECLADO 
8490 LSET CIt=ALFA$ 

8500 REM 

8510 YP0S=10:XP0S=11 

B520 GOSUB 15800: REM ->POSICIONA EL CURSOR 
8530 GOSUB 15900:REM —>LECTURA CARACTER 
8540 IF ASC(CARS)<>27 THEN 60T0 8620 
8550 YP0S=10:XP0S=13 

8560 GOSUB 15800:REM ->POSICIONA EL CURSOR 

8570 PRINT " 

■ 

8580 SK=2 

8590 XP0S=13:YP0S=10 

8600 GOSUB 1000:REM —>TECLADO 

8610 LSET TE»=MKS»(GRANDE*) 

8620 REM 

8630 YP0S=12:XP0S=11 

8640 GOSUB 15800:REH ->P0SICI0NA EL CURSOR 
8650 GOSUB 15900:REM —M.ECTURA CARACTER 
8660 IF ASC(CARS)<>27 THEN GOTO 8740 
8670 YP0S=12:XPQS=13 

8680 GOSUB 15800:REH ->POSICIONA EL CURSOR 

8690 PRINT " 

■ 
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8700 SW=3 

8710 YP0S=12:XP0S=13 

8720 GOSUB 1000:REM —>TECLADC 

8730 LSET PR$=ALFft* 

8740 REM 

8750 GOSUB 15500: REM —>ESCRITURA CLIENTE 
8760 RETURN 
8770 REM 

9000 REM .. 

9010 REM :: BORRADO :: 

9020 REM .... 

9030 REM 

9040 GOSUB 500:REM -—>BORRADO PANTALLA 
9050 YP0S=20:XP0S=1 

9060 GOSUB 15800:REM —>POSICIONA EL CURSOR 
9070 INPUT “CLAVE DE BUSQUEDA:NOMINATIVO* 

9080 IF LEN(NOMINATIVO*)=31 THEN GOTO 9100 
9090 NOMINfiTIVG*=NOMINATIVO*+" "¡GOTO 9080 
9100 REM 

9110 GOSUB 13000:REM REM —>CLAVE 
9120 IF FIN=1 THEN GOTO 9250 
9130 GOSUB 10000:REM —>MASCARA 
9140 GOSUB 11000:REM ~>VISUALIZACIQN 
9150 XP0S=1:YP0S=20 

9160 GOSUB 15800:REM —>P0SICI0NA EL CURSOR 
9170 PRINT "¿QUIERE BORRARLO?(S/N)' 

9180 GOSUB 15900:REM —>LECTURA CARACTER 
9190 IF CAR$=“S" OR CARí="s“ THEN GOTO 9210 
9200 RETURN 
9210 REM 

9220 LSET TI*="C" 

9230 GOSUB 15500:REM -->ESCRITURA CLIENTE 
9240 RETURN 
9250 REM 

9260 YPQS=20:XP0S=1 

9270 INPUT "NO EXISTE ESTE CLIENTE,PULSE ¿RETURN)"; 

RESPUESTA* 

9280 RETURN 

10000 REM ¡i::::::::::;:: 

10010 REM :: MASCARA :: 

10020 REM 



10030 REM 

10040 YPQS=4:XP0S=1 

10050 GOSUB 15800:REM —>POSICIONA EL CURSOR 
10060 PRINT "CLIENTE :" 

10070 YPQS=6:XP0S=1 

10080 GOSUB 15800:REM —XPOSICIONA EL CURSOR 
10090 PRINT "DIRECCION :* 

10100 YPOS=8:XPOS=1 

10110 GOSUB 15800:REM ->PQSICIONA EL CURSOR 
10120 PRINT "CIUDAD :“ 

10130 YP0S=10:XP0S=1 

10140 GOSUB 15800:REM —>POSICIONA EL CURSOR 
10150 PRINT "TELEFONO :" 

10160 YP0S=12:XP0S=1 

10170 GOSUB 15800:REM ->POSICIONA EL CURSOR 
10180 PRINT "PREFIJO :" 

10190 YPOS=14:XP0S=1 

10200 GOSUB 15800:REM —>POSICIONA EL CURSOR 
10210 PRINT "IZQUIERDO :" 

10220 YP0S=14:XP0S=20 

10230 GOSUB 15800:REM —XPOSICIONA EL CURSOR 
10240 PRINT "DERECHO 
10250 RETURN 
10260 REM 

11000 REM ::::.:::::::::::: 

11010 REM :: VISUALIZACION :: 

11020 REM ::::::::::: .. 

11030 REM 

11040 YP0S=4:XP0S=13 

11050 GOSUB 15800: REM -XPOSICIONA EL CURSOR 
11060 PRINT CLt; 

11070 IF TItO’ ’ THEN PRINT " BORRADO"; 
11080 YP0S=6:XP0S=13 

11090 GOSUB 15800: REM ->POSICIONA EL CURSOR 

11100 PRINT INí 
11110 YP0S=8:XP0S=13 

11120 GOSUB 15800:REM —:POSICIDNA EL CURSOR 
11130 PRINT CI* 

11140 YP03=Í0:XP0S=13 

11150 GOSUB 15800:REM —>PQSICIONA EL CURSOR 
11160 TELEFQNO#=CVS(TE*> 
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11170 PRINT TELEFONO# 

11 ISO YP0S=12:XP0E=Í3 

11190 EOSUB 15800:REM —>POSlCIONft EL CURSOR 
11200 PRINT PR$ 

11210 YPDS=14:XPGS=13 

11220 50SUB 15300:REM —>POSICIONA EL CURSOR 
11230 IZQU1ERB0X=CVI(SI!) 

11240 PRINT IZQUIERDOS 
11250 YP0S=14:XP0S=33 

11260 SOSUE 15800:REM ->P0SICI0NA EL CURSOR ' 

11270 DERECHOK=CVI(DE!) 

11280 PRINT DERECHOS 
11290 RETÜRN 
11300 REM 

11500 REM ::::::::::::: 

11510 REM :: LISTA :: 

11520 REM ::::::::::::: 

11530 REM 
11540 FIN=0 

11550 IF INICIO">=ACTUALS OR INICIOLO THEN GOTO 11610 
11560 FIELO 1.31 AS ÜL1.33 AS INÍ.15 AS Cl!,4 AS 
TES,4 AS PRí.l AS Til,2 AS Sil,2 AS DEI 
11570 NUMEROS-1 NIC IOS 
11580 50SUB 15000:REM -RECTORA CLIENTE 
11590 INICICX=INICI0X+1 
11600 RETÜRN 
11610 FIN=1 
11620 RETÜRN 

11800 REM ::::::::::::::::: 

11810 REM :: VE CLIENTE :: 

11820 REM i:::::::::::::::: 

11830 REM 

11840 FOR NUMEROSA TO ACTUALS-1 
11850 FIELE 1,31 AS CLI.33 AS INI,15 AS Cl!,¿ AS 
TE!, 4 AS PR$,1 AS Til,2 AS Sil,2 AS DEI 
11860 GOSUB 15000:REM —>LECTURñ CLIENTE 
11870 GOSUB 500:REM -—>BORRADO PANTALLA 
11B30 GOSUB 10000:REM —>MASCARA 
11890 GOSUB 11000:REM —>VISUflL3ZACION 
11900 INFUT "PULSE <RETÜRN) PARA CONTINUAR"; 

RESPUESTA! 



11910 NEXT NUMEROS 
13920 RETÜRN 

12000 REM ::::::::::::::: 

12010 REM :: ACT NUDO :: 

12020 REM ::::::::::::::: 

12030 REM 
12040 HECHQ=0 . 

12050 IF ACTUALS=2 THEN LSET SI!=MK!$íO):LSET DE!= 
MKI4Í0)¡GOTO 12520 
12060 PX=2 
12070 REM 
12080 NUMEROSAS 

12090 GOSUB 15000:REM -l-LECTURA CLIENTE 
12100 IF NOMINATIVO!=CLÍ THEN GOTO 12300 
12110 IF C7! (SHK'-O THEN P*Í=CVI (Sili ¡GOTO i2500 
12120 HECHO 1 ! 

12130 LSET SIMMKIí (ACTUAL!) 

12140 SOSUB 15500:REM —>E5CRITURA CLIENTE 

12145 NUMERQX=ACTUALX 

12146 GOSUB 15000:REM — >LECTURA CLIENTE 
12150 LSET SIf=MK'!$(0) 

12160 LSET DE!=MXI!(-PX) 

12170 GOTO 12500 
1230C REM 

12310 IF CV1!DE$))0 THEN PX=CVI(DE!!¡GOTO 12500 
12320 HECHO 1 1 
12330 MS=CVI(DE!) . 

12340 LSET DE!=MKI!(ACTUAL!) 

12350 GOSUB ¡5500:REM ->ESCRITURA CLIENTE 

12355 NÜM£ROX=ACTUAlS 

12356 SOSUB !50C0:REM —/LECTURA CLIENTE 
12360 LSET DE!=MKI!(MS! 

12370 LSET SI!=MKI$íO) 

12500 REM 

32510 IF HECHC=0 THEN GOTO 12080 
12520 REM 
12530 RETÜRN 
12540 REM 

33000 REM ::::::::::::: 

13010 REM:: CLAVE :: 

13020 REM ::::::::::::: 




118 


119 



















1303-0 REM 
13040 ENC=0 
13050 FIN=0 
13060 £STD%=2 
13070 NÜMER0%=2 

13075 IF LEN!N0t!INA - Iv0$) >=3í THEN GOTO 13078 

13077 NOM1NATIVO$=NOMINATIVO$+" "¡GOTO 13075 

13078 FIELO 1,31 AS CLÍ.33 AS INI, 15 AS CIM AS 
TE!,4 AS PR$, 1 AS TI$,2 AS Sil.2 AS DEI 

13080 IF NUMEROLO THEN GOTO 13200 
13090 GQSUB 15000:REM —>LECTURA CLIENTE 
13100 EST07.=NUMER07. 

13110 IF NOMINATIVOKCLI THEN NUMEROX=CVI(SI$): 

GOTO 13080 

13120 IF NQMINATIVDI=CL! THEN ENC=1:PROXIMOZ=CVI( 
DEI)¡GOTO 13300 

13130 IF COI (DEI) >0 THEN NUMEROX=CVI (DEI! ¡GOTO 
13080 

13140 NUMEROLO 
13200 FIN=1 
13210 PROXIMO'/.=ESTOX 
13220 RETURN 

13300.IF FIN=1 OR ENC=1 THEN RETURN 
13310 GOSUE: 15000:REM --/LECTURA CLIENTE 
3320 RETURN 
13330 REM 

13500 REM :::::::::::::::: 

13510 REM:: BUSQUEDA :: 

13520 REM ... 

13530 REM 
13540 FUERA=0 
13550 REM 

13560 EBTO%=ABS(PROXItÍOZÍ 
13565 NUMEROMSTOZ 

13570 GOSUB 15000:REM -/LECTURA CLIENTE 
13580 IF CVKSIDOO AND PROXIMOX>=0 THEN PROXIMO'/.^ 
CVI(Sil)¡GOTO 13800 
13590 FUERA=1 
13600 PROXIMOZ=CVI(DE$) 

13800 IF FUERANO THEN GOTO 13550 
13810 RETURN 



13820 REM 

15000 REM ::::::::::::.::::::::::: 

15010 REM :: LECTURA FICHERO CLIENTE 

15020 REM ::::: 

15030 REM 

15040 6ET ll.NUMERQX 
15050 RETURN 
15090 REM 

15500 REM ¡¡: 

15510 REM :: ESCRITURA FICHERO CLIENTE 

15520 REM ::::::::::::::::::: .. 

15530 REM 

15550 PUT tti,NUMERO'/. 

15560 RETURN 
15590 REM 

15800 REM ::::::::::.::::::::::: 

15810 REM:: P0SIC10NA EL CURSOR ¡: 
15820 REM ::::::::::::::::::::::::::: 
15830 REM 

15840 LOCATE YPOS.XPQS,1 
15850 RETURN 
15860 REM 

15900 REM ::::::::::::::::::::::: 

15910 REM :: LECTURA CARACTER ¡: 

15920 REM ::::::::::::::::::::::: 

15930 REM 

15940 CAR$=INPUT$(1) 

15950 RETURN 
15960 REM 


AL_COMPACT A 

íoo rem mtmmmmi 

110 REM » AL COMPACTA t 

120 rem mmttttmtm 

130 REM 

140 OPEN “R",2,"CLIENTES.DAT’,92 
160 OPEN "R",1,"CLIENTE.VEC",92 
170 FIELD 2,2 AS ACTUAL!,2 AS ULTIMO! 
175 6ET #2,1 


IZO 
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180 FIELD 1,2 AS ACT*,2 AS ULT* 

190 GET 11,1 
210 XX=CVI(ULTIMO*) 

220 YX=CVI (ACTÍ) 

230 NUMERO?.=1 

235 SOSUB 15500:REM —íESCRITURA CLIENTE 
240 ACTUALX=2 
250 ZX=2 
260 REM 

270 FIELO 1,31 AS CLI$,33 AS IND$,15 AS CITt,4 AS 
TELí,4 AS FRES,1‘AS TIPt,2 AS SIS*,2 AS DES* 
280 GET #1,ZX 

290 IF TIP*<)"C* THEN GOTO 320 
300 PRINT CLI*;" BORRADO" 

310 GOTO 475 
320 REM 

330 IF lim THEN GOTO 500 
340 NOMINATIVOX=CLI* 

345 FIELD 2,31 AS CL*,33 AS INt,15 AS CI*,4 AS 
TE*.4 AS PRÍ,1 AS TI»,2 AS SIt,2 AS DE* 

350 GOSUB 12000:REM —>ACT NUDO 
360 LSET CL*=CLIt 
370 LSET IN*=INDt 
380 LSET CIt=CIT* 

390 LSET TE*=TELt 
400 LSET PR*=PREí 
410 LSET TIt=TIP* 

450 PRINT CL* 

460 NUMEROX=ACTUALX 

465 GOSUB 15500:REM —>ESCRITURA CLIENTE 
470 ACTUALX=ACTUALX+1 
475 ZX=ZX+1 

480 IF ZX<YX THEN GOTO 260 
490 GOTO 600 
500 REM 

510 PRINT "HAY “;Z7.;" REGISTROS ACTIVOS EN UN 
FICHERO QUE LOS PREVEE 
520 PRINT "NO PUEDO SEGUIR” 

530 INPUT "PULSE <RETURN>:RESPUESTA* 

540 GOTO 650 
600 REM 



610 FIELD 2,2 AS ACT*,2 AS ULT* 

620 NUMEROS 1 

625 GOSUB 15000:REM —>LECTURA CLIENTE 
630 LSET ACT*=MKI*(ACTUALX) 

640 GOSUB 15500:REM —>ESCRITURA CLIENTE 
650 CLOSE 1 
660 CLOSE 2 
670 END 

12000 REM.::::::::::: 

12010 REM:: ACT NUDO :: 

12020 REM :::::::::::::::: 

12030 REM 
12040 HECH0=0 

12050 IF ACTUALX=2 THEN LSET SIt=MKIÍ(0):LSET DE*= 
MKIÍiOhGOTO 12520 
12060 PX=2 
12070 REM 
12080 NUMEROX=PX 

12090 GOSUB 15000:REM —>LECTURA CLIENTE 
12100 IF NOMINATIVO*)CL* THEN GOTO 12300 
12110 IF CVI(SI*)<)0 THEN P7.=CVI<SI*):GOTO 12500 
12120 HECHQ=1 

12130 LSET SI*=MKIt(ACTUALX) 

12140 GOSUB 15500: REM ->ESCRITURA CLIENTE 

12145 NUMEROX=ACTUALX 

12146 GOSUB 15000:REM —>LECTURA CLIENTE 
12150 LSET SI*=HKIt(0) 

12160 LSET DE*=MKI*(-PX) 

12170 GOTO 12500 
12180 REM 
12300 REM 

12310 IF CVI(DE*!>0 THEN PX=CVI(DE*)¡GOTO 12500 
12320 HECH0=1 
12330 MX=CVI(DEX) 

12340 LSET DE*=MKI*(ACTUALX) 

12350 GOSUB 15500:REM --ESCRITURA CLIENTE 

12355 NUHEROX=ACTUALX 

12356 GOSUB 15000:REM —>LECTURA CLIENTE 
12360 LSET DE*=MKIt(MX) 

12370 LSET SI*=MKI*(0) 

12500 REM 


m 

















12510 IF HECH0=0 THEN 120B0 
12520 REM 
12530 RETURN 
12540 REM 

15000 REM ::::::::::::::::::::::::::: 
15010 REM :: LECTURA FICHERO CLIENTE 

15020 REM ..¡: 

15030 REM 

15040 GET #2,NUMEROZ 
15050 RETURN 
15060 REM 


15500 REM :::::::::. 

15510 REM ESCRITURA FICHERO CLIENTE 
15520 REM 


15530 REM 


12.4 






I S _P REPARA 

PR05RAM i5_prepara; 

TYF'E 

c!i=RECORD 

CASE BOOLEAN OF 

TRUE:(cliente 
dirección 
ciudad 
telefono 
prefijo 
tipo 

FALSE:(primero 
máximo 

END; 

ind=RECDRD 

nombre :STRINBC313; 

izquierdo :INTESER; 
derecho :INTEGER; 

END; 

VAR 

cliente ¡FILE OF el i; 
indice :FILE OF ind; 
x :INTESER; 
ultimo ¡INTESER; 


STRINGC311: 
STRINGC33I; 
STRINGC15]; 
INTEGER181; 
STRINGE43; 
CHAR); 
INTEGER; 
INTEGER); 
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BE6IN 

REWRITE{cliente,’c1i ente, dat ’); 

WRITE(’¿de cuantos ficheros estara compuesto e! fichero?:’); 

READLN(ultimo); 

klITH cliente’' 

DO BEGIN 

pri mero:=2; 
aaximo:=ultimo+í; 

PUT (diente); 

PUT(cliente); 
el i ente:=”; 
dirección: 1 ”; 
ciudad:=”; 
telefonc:=0; 
prefijo:=’0000’; 
tipo:-* ’; 

FOR X:=l T0 ultimo DO PUT (diente); 

END; 

GLOSE 
REWRITE 
WITH Índice' 

DO BESIN 

nombre:=”; 
izquierdo:=0; 
derscho:=0; 

FOR x:=0 T0 ultimo+1 DO PUT(intíice); 

END; 

CLOSEíindice.LDCK); 

END. 


IS_GESTION 

PR06RAN is gestión; 

TVPE 

di=RECORD 

CASE BG0LEAN 0F 

TRUE:(cliente :STRING[313; 

dirección ¡STRINGI33]; 
ciudad :SIRINGE 151; 

telefono ¡INTEGERtB]; 
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prefijo :STRINSC43; 

tipo :CHAR); 

FALSE:(primero :INTESER; 

máximo :INTEGER); 

END; 

ind=REC0RD 

nombre :STRIN6C313; 

izquierdo ¡INTEGER; 
derecho ¡INTEGER; 

END; 

TYPE 

eliente:FILE QF di; 
indice;FILE 0F ind; 
hecho, 

fuera,fin:BQQLEAN; 

partida,termino,nomu nativo:STRIN6C333; 
car, sn, respuesta,que_quiere:CHAR; 
st:STRINGtl]; 
grande:INTEGERI151; 

* JOS, yjpos,p, ■,*, y,Z,j,inicio,alt,pequeño, 
cual,presente,esto,próximo,actual, 

ultimo:INTEGER: 

PROCEDURE borradojiantalla; 

BEGIN 

WRITE!CHR$!28))i 
END; 

PROCEDURE teclado; 

BEGIN 

CASE sw OF 

Tspequeno:=0; 

’2’:grande:=0; 

’3’:alfa:=”; 

END; 

S0TGXY(x jJ05,y_pos); 

REPEAT 

READ(KEYBQARD.car); 

¡F NOT EOLN(KEYBQARD) 















THEN 8EGIN 
!F ORD(car)=8 
THEN BEGIN 
GOTDXY(x_poSj y_pos); 


CASE sw OF 
’T¡BEGIN 

PEQUEÑO:=PEQUENO div 10; 

WRITE(PEQUEÑO,’ '); 

60T0XY(x_pos,y_pos); 

WRITE(pequeño); 

END; 

’2’ ¡BEGIN 

grande:=grande DIV 10; 

WRITE(grande,’ ’); 

GOTO(s_pos,y_pcs); 

WRITE(grande); 

END; 

'3'¡BEGIN 

DELETE <al -f a, LEGTH (alta) ,1); 
WRITE (al -f a, ’ 

GOTOXY (>¡_pos, y_pos) ¡ 
WRITE(alfa); 

END; 

END; 

END 

ELSE BEGIN 
IF sw INI’1’,’2’] 

THEN BEGIN 
IF car 

THEN pequeño:=paqueno<10+0RD¡car)-48 
EL5E grande;=grandetlO+ORD(cari-48; 
WRITE(car!; 

END 

ELSE WRITE(CHR*<7>); 

END !del campo numérico) 

ELSE BEGIN 
IF car INI’ 

THEN BEGIN 
st¡=’ ’; 


5tC!]:=car; 

alfa:=CGNCAT(aifa,st); 

WRITEÍcar); 

END 

ELSE WRITE(CHRí(7)); 

END; ídel campo al-fabético! 

END; (si no tecla de retorno) 

END; (no es return) 

UNTIL EQLN(KEYBOARD); 

END; 

FRQCEDÜRE menú; 

BEGIN 

borrado_pantalla; 

WRITELN; 

WR1TELNC1 --> carga de datos’); 

WRITELN; 

WRITELN!’2 --> lectura con el numero de registro’) 
WRITELN; 

WRITELN(’3 —> lectura con el nombre de cliente’); 
WRITELN; 

WRITELN(’4 —> modificación de un registro’); 
WRITELN; 

WRITELNÍ’5 --> borrado de un registro’); 

WRITELN; 

WRITELN<’9 --> fin del programa’); 

WRITELN; 

READ(que_quiere);WRITELN; 

END; 

PROCEDURE visualnacion; 

BEGIN 

WITH cliente* 

DO BEGIN 

GQTQXY(13,4); 

WRITE (cliente*.cliente); 

IF tipoO’ ’ THEN WRITE(’ borrado’! 

ELSE WRITE(’ ’>! 

GOTOXY(13.6); 

WRITE(dirección); 

GOTOXY(13.8); 





WRTTEíciudad); 
60T0XY(13,10); 
WRITE (tele-fono); 
60T0XY(13,í2); 
WRITE(prefijo); 
END; 

END; 

PROCEDURE mascara; 
BE6IN 


GOTOXY(0,4); 


WRITE(’eliente 

:’) 

GOTOXY(0,6); 


WRITE!’di rece ion 

:’) 

GOTOXY(0,8); 


NRITEÍ’ciudad 

:’) 

6DT0XY(0,10); 


WRITE(’telefono 

!’) 

GOTOXY(0,12); 


KRITEPprefijo 

:’) 


PROCEDURE clave; 

BESIN 

fuera:=FALSE; 

■fin; =FALSE; 

esto:=2; 

j:=2; 

WITH mdice A 
DO 6E6IN 
REPEAT 
IF j=0 
THEN BE6IN 
fin:=TRUE; 
proxino;=esto; 

END; 

ELSE BESIN 
SEEKündice, j); 

SET(indice); 

IF nominativo<nofl]bre 
THEN j:=izpu;erdo 


ELSE IF ncainatiVG=no»bre 
THEN BEGIN 

fuera:=TRUE; 
pro;< i ir.o: =der echo; 

END 

ELSE IF derecho>0 THEN j:=derecbo 
ELSE j:=0; 

END; 

UNTIL fuera OR fin; 

END; 

IF NOT fin 
THEN BEGIN 
BEEK(eliente, j); 

SET(cliente!; 

END; 

END; 


PROCEDURE modificación; 

BEGIN 

borradc_panta!la; 

60TCXY(0,20); 

WRITEÍ'clave a buscar: ’); 

stc=’3’; 

x jos: =23; 

y jos: =20; 

teclado; 

nominativo:=aifa; 
clave; 

IF NOT fin 
THEN BEGIN 
mascara; 
visuahzacion; 

GOTOXY(0,20!; 

WRITEí’pulse <ESC> para modificar el campo,’, 
’<RETURN> para continuar’!; 


S0TQX¥Í13,6); 

REÍD(respuesta); 

IF respuesta=CHR$(27) 
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THEN BEGIN 
GOTOXY(13,6>; 

WRITE(’ 
sw:=’3’; 
x _p q s: = Í3; 
y_pos:=6; 
teclado; 

cliente A .direccion:=al-fa; 

END; 

GOTOXY(13,3); 

REfiD(respuesta); 

IF respuesta=CHR$(27) 

THEN BEGIN 
GOTOXY(13,3); 

WRITE(’ ’); 

sw:=’3 ! ; 

x_pos:=13; 

y_pos:=S; 

teclado; 

cliente A .ciudad:=alta; 

END; 

GOTOXY <13.10); 

REfiD(respuesta); 

IF respuesta=CHR$(27) 

THEN BEGIN 
GOTOXY(13.10); 

WRITEÍ’ ’); 

sw:=’2’; 

x_pos:=13; 

y_pos;=10; 

teclado; 

diente*. teleFor.o:=grande; 
END; 

GOTOXY(13,12); 

READ(respuesta); 

IF respuesta=CHR$(27! 

THEN BEGIN 
GOTOXY(13,12); 



WRITE(’ ’>! 

sn:=’3 ! ; 

x_poss=13; 

y_pos:=í2; 

teclado; 

cliente*, prefi jo:=aHa; 

END; 

SEEK(eliente,esto); 

RUT <cli ente); 

END 

ELSE BEGIN 
GOTOXY(0,20); 

WRITE('no existe este registro,pulse <RETURN>’i; 
READLN; 

END; 

END; 


PROCEDURE borrado; 

BEGIN 

borrado_pantalIa; 

GOTOXY(Ó,20); 

WRITE('clave a buscar: ’); 

sw:=’3’; 

x_pos:=23; 

y_pos:=20; 

teclado; 

nominativo: =al+a; 
clave; 

IF NCT Fin 
THEN BEGIN 
sascara; 
visual i car ion; 

GOTOXY(0,20); 

WRITE('¿quiere borrarlo?(S/NÍ’); 
READ(respuesta); 

!F respuesta IN í’S’,’s’1 
THEN BEGIN 
cliente*.tipo:=’C’ 

SEEK(cliente,esto!; 

RUT (diente!; 
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END: 

END 

ELSE BEGIN 
GOTOXY íO,20); 

WRITE('no existe este registre,pulse <RETURN>’); 
PEADLN; 

END; 

END; 

PROCEDURE búsqueda; 

BEGIN 

WITH índice' 

DO BEGIN 

fuera:=FALSE; 

REPEflT 

presente:=ABS(cual); 

BEEK(indice,presente); 

GETíindiceS; 

SEEK(cliente,presente); 

GET(cliente); 

IF(izquierdo< >0) 

AND (cual>=0) 

THEN cual:=izquierdo 
ELSE BEGIN 
fuera:=TRUE; 
cual:=derecho; 

END; 

UNTIL fuera; 

END; {WITH indice'} 

END; 

PROCEDURE parajioebre; 

BEGIN 

GOTOXY(0,20); 

WRITE('nombre del primer cliente :')j 

sw:=’3’; 

x_pos:=32; 

y_pos:=20; 

teclado; 

partitías=alfa; 

GOTOXY(0,20); 


WRITE('nombre del ultimo cliente 

’ ’); 
s«:=’3’5 
x_pos:=32; 
y_pos:=20; 
teclado; 
termino:*a!fa; 
nominativo:“partida; 
clave; 

cual:=proximo; 

IF fin 
THEN BEGIN 
búsqueda; 
fin:=FALSE: 

END; 

REPEAT 

borrado_pantaIla; 
mascara; 
visualizacion; 
bOTGXY(0,20); 
búsqueda; 

WRITE('(ESPACIO) para continuar,’, 
’<ESC> para terminar’); 
READ(respuesta); 

UNTIL <respuesta=CHR$ <275 ) 

OR(presente=0) 
OR!indice A .nombre>termino) 

END; 

PROCEDURE act_nudo; 

BEGIN 

WITH indice' 

DO BEGIN 

hecho:=FALSE; 

IF actual=2 

THEN BEGIN {si primer registro) 
nombre:=nominativo; 
izquierdo:=0; 
derecho:=0; 

SEEK(indice,2); 

PUT(indice); 
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END 

ELSE BEBIN 

p:=2; 

REF’EAT 

SEEK(indice,p); 

6ET Cindice); 

IF no(ain"a'tivo>cl iente 
THEN BEEIN 
IF derecho>0 
THEN p:=derechc 
ELSE BEGIN 

hecho:=TRUE; 

®:=derecho; 

derecho:=actual; 

SEEK(indice,p); 

PUT(indice); 

SEEK(índice,actual); 
derecho:=m; 
izquierdo:=0; 
nombre: nominativo; 
PUT(indice); 

END; 

END 

ELSE BE6IN 
IP izquiertíoOO 
THEN p:=izquierdo; 

ELSE BESIN 

hecho:=TRUE; 

izquierdo:=actual; 

SEEK(indice,p); 

PUT(índice); 

SEEK(indice,actual); 
izquierdo:=0? 
derecho:=-p; 
nombre:=nomir¡ativo; 
PUT(indice!; 

END; 

END; 

UNTIL hecho; 

END; 

actual:=actual+l; 



END; 

END; 

PROCEDURE lista; 

BESIN 

■f in:=FALSE; 

IF (inicio<actual) 

AND (inicio>0) 

THEN BESIN 

SEEK(eliente,inicio); 

6ET(cliente); 
inicio:=SUCC(inicio); 

END 

ELSE fin:=TRUE; 

END; 

PROCEDURE lectura; 

BESIN 

G0T0XY(0,20); 

NRITEC numero del primer registro: ’); 

s»:=’l’; 

x_pos:=32; 

y_pos:-2Q; 

teclado; 

inicio:=pequeno+l 
GOTOXY(0,20); 

WRITECnumero del ultimo registro: ’); 

sn:=’l’; 

x_pos:=32; 

y_pos:=20; 

teclado; 

alt:=pequeno+1; 

IF alt>actual-l THEN alt:=actual-1; 
lista; 

IF NOT fin 
THEN REPEAT 
borrado_pantalla; 
mascara; 
visualizacion; 

60T0XY(0,20); 
lista; 
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WRITE(’<ESPfiCIÜ> para continuar,’, 

’<ESC> para teminar’); 

REfiD(respuesta); 

UNTIL (respuesta=CHR$(27)) 

OR fin 

OR !inicio>alt+l!; 

END; 

PROCEDURE carga; 

BEGIN 

borrado_pantalla; 

WRITELN (’ 1 a carga parte con el nusiero’, 
actual-1); 

IF actual>2 
THEN BEGIN 

SEEK(cliente,PRED(actual)); 

GET(cliente); 

HRITELM(’el registro anterior escrito', 
’es el siguiente:’); 

mascara; 

visualizacion; 

WRITELN; 

END; 

WRITELN(’pulse <RETURN> para iniciar la carga’); 
READLN; 

REPEflT 

borrado_pantalla; 

60T0XY(0,20); 

WRITELN( 7 para terminar,responda "zzzz" a la’, 
'petición del nombre del cliente’); 

■aseara; 
sw:=’3’; 
x_pos:=13; 
y_pos:=4; 
nominativo:=alfa; 

IF nominad voO’zzzz’ 

THEN BEGIN 
IF actual>ultimo 
THEN BEGIN 

WRITEPno puedo seguir.se ha superado’, 


’la dimensión inaxima del fichero.’ 
’pulse <RETURN>’); 

READLN; 

EXIT(carga); 

END; 

clave; 

IF NOT fin 
THEN BEGIN 
S0T0XY(0,20); 

WRITE(’este cliente ya existe.no puedo’, 
'insertarlo.pulse <RETURN>’1; 
READLN; 

EXIT(carga); 

END; 

WITH diente* 

DO BEGIN 

el i ente: =nc«si nat i vo; 

5w:- ó ; 

x_pos:=13; 

y_pos:=6; 

teclado; 

direccion:=alfa; 
sw:=’3’; 
x_pos:=13; 
y_P°s: =8; 
teclado; 
ciudad:=alfa; 

5W!*’2’5 

x_pos:=13; 
y_pos:=10; 
teclado; 

telefono:agrande; 
sw:=’3’; 
x_pos:=13; 
y_pos:=12; 
teclado; 
prefijo:=alfa; 
tipo:»’ 

SEEK(cliente,actual); 

PUT (diente); 



actjiudo; 

pri mero:=actual; 

man imo:=ultimo; 

SEEK(el i ente, 1); 

PUT(cliente); 

END; -íde la mí th diente) 
END; Í5Í cliente) 

UNTIL nominad vo=’zzzz’; 

END; 

BEGIN 

RESET(índice,’ indice.dat’ ); 

RESET (cliente, 'diente, dat’); 

SEEK(cliente,í); 

GET(cliente); 

actual :=diente A .primero; 

ultimo:=cllente".máximo; 

REPEAT 

menú; 

CASE que_quiere OF 
’1’:carga; 

’2’:lectura; 

'3':para_nombre; 

'4'¡modificación; 
’5’:borrado; 

END; 

UNTIL que_quiere=’9’; 

CLOSE (indice.LOCK); 

CLQSE(cliente.LOCK); 

END. 


IS_COMPACTA 

PROGRAN is_compacta; 

TYPE 

cli=RECQRD 

CASE BOOLEAN OF 
TRUE:(eliente:STRINGC313; 
direccion:STR!NGI331; 
ciudad :STRINBC153; 


telefono :INTE6ERE81; 
prefijo :STRIH6C43; 
tipo :CHAR); 

FALSE:(primero : INTE6ER; 
máximo :INTE6ER); 
END; 

ind=RECORD 

nombre :STRIN6C311; 
izquierdo :INTEGER; 
derecho ¡INTEGER; 

END; 

VAR viejo, el i ente: FILE OF di; 
indice:FILE OF ind; 
ncminativo:5TRIN6[31); 
hecho:BOOLEAN; 

m,p,x,y,z,actual,ultimo:INTEGER; 

PROCEDURE actjiudo; 

BEGIN 

WITH indice A 
DO BEGIN 

hecho:=FALSE; 

IF actual-2 

THEN BEGIN (si primer registro) 
nombre:=noniinativa; 
izquierdo:=0; 
derecho:=0; 

SEEK(indice,2); 

PUT(indice); 

END 

ELSE BEGIN 

p:=2; 

REPEAT 

SEEK(indice,p); 

GET(indice); 

IF nominativo>nombre 
THEN BEGIN 
IF derecho>0 
THEN p:=derecho; 
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ELSE BE6IN 
hecho:=TRUE; 

®:=derecho; 
derecho:=actual; 

SEEK(indice,p); 

PUT(indice); 

SEEK(indice,actual); 
derecho:=mj 
izquierdo:=0; 
nombre:=nominativo; 

PUT(índice); 

END; 

END; 

ELSE BE6IN 

IF IZQUIERDOOO 
THEN p:=izquierdo 
ELSE BE5IN 
hecho:=TRUE; 
izquierdo:=actual; 
SEEK(indice,p>; 

PUT(Índice); 
SEEK(indice,actual)j 
izquierdo:=0; 
derecho:=-p; 
nombre:=noainativo¡ 
PUT(indice); 

END; 

END; 

UNTIL hecho; 

END; 

actual:=actual+1; 

END; ÍWITH Índice*} 

END; 

BEGIN 

RESET(viejo,’cliente.vie’); 

RESET(índice,’índice.dat’); 

RESET(cliente,’el i ente.dat’); 

SEEK (cliente,1); 

GET(cliente); 

SEEK(viejo,1); 


SET(viejo); 

ul tino: =d iente*.máximo; 
y:=viejo A .primero; 

GET(viejo); 
actual:=2; 
z:=2; 

REPEfiT 
WITH viejo* 

DO BEGIN 

IF tipo=’C’ 

THEN NRITELN(cliente:lV borrado’) 

ELSE BEGIN 
UR1TELN(cliente:15); 
cliente*:=viejo*; 

SEEK(eliente,actual); 

PUT(cliente); 

no#inativo:=viejo*.cliente; 
act nudo; 

END; " 

IF actual-Dultimo 
THEN BEGIN 

NRITELNChay’,actual-l,’ registros’, 
'activos en un Fichero que los’, 
’prevee ’,ultimo,’!’); 

WRITELN(’no puedo seguir.’); 

NRITELNC pulse (RETURN)’); 

READLN; 

EXIT(program); 

END; 

GET(viejo); 
z:=z+l; 

END; (de la with viejo) 

UNTIL z)=y; 

SEEK(eliente, 1); 

GET(cliente); 
cliente*.primo:=actual; 

SEEK(eli ente,1); 

PUT(cliente); 

GLOSE(viejo); 

CLOSE(indice); 

CLOSE(cliente); 

END. 
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HAS PREPARA 


PRQ6RAM hash_prepara; 

CONST 

divisor=7; 

TYPE 

el i=REC0RD 

CASE BOOLEAN DF 
TRUE:(cliente ¡STRINGÍ313; 
direccion:STRINGC333; 
ciudad :STRIN5C151; 
telefono :INTE6ERC83; 
prefijo :STRING C 4 j; 
tipo :CHAR; 
colisión :INTESER); 

FALSE:(primero :INTEGER; 
máximo :INTEGER!; 

END; 

VAR 

eliente:FILE OF cli; 

Índice ¡FILE OF INTEGER; 

x,y,z :INTEGER; 

actual,ultimo:INTEGER; 

BEGIN 

REWRITE(cliente,’ cliente.dat’ ); 

WRITE(’¿de cuantos registros estara compuesto’, 
’el fichero' 7 ’); 

READLN(ultiao); 

WITH cliente^ 

DO BEGIN 

primero:=2; 

ma>; i mo :=ultimo+l; 

PUT(cliente); 

PUT (diente); 
cliente:*’’; 
dirección:*”; 
ciudad:*”; 
telefono:=0; 
prefijo:=’000C’; 


tipo:*’ ’; 
colisión;*-!; 

FOF; s:=2 TO ultiaio+i DO PUT (cliente); 

END; 

GLOSE(eli ente.LOCK); 

REWRITE (indi ce,’i ndice.dat’ ); 
indice A :=-l; 

FOR x:=0 TO divisor-! DO PUT(indice); 

CLOSE!indi ce,LOCK); 

END. 

HAS_GESTION 

PROGRAM hash_gestion; 

CONST 

divisor=7; 

TYPE 

cli=RECÜRD 

CASE BOOLEAN OF 
TRUE:(cliente :STRINSC 31]; 
direccion:STRIN6C331; 
ciudad :STRINGC153; 

telefono :INTEGERC81; 
prefijo :STRIN6C43; 
tipo :CHAR; 
colisión ¡INTEGER); 

FALSE:(primero ¡INTEGER; 
máximo ¡INTEGER); 

END; 

VAR 

cliente:FILE OF cli; 
indice:FILE OF INTEGER; 
fuera,fin:BOOLEAN; 

partida,termino,alfa,nominativo:STF;ING[33]; 

car,sw, respuesta, que_quiere:CHAR; 

st:STRINGC11; 

grande: INTEGERI151; 

j,x_pos,y_pos,cual,inicio,alt, 

pequeño,hash,actual,ultito:INTEGER; 

x,y:INTE6ERC81; 
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r1,r2:INTE6ERC83; 
z:INTE6ERC83; 
c,n:INTEGER 

PROCEDURE borrado_pantalla; 

BE6IN 

WRITE(CHR$(28)); 

END; 

PROCEDURE teclado; 

BEGIN 

CASE sw OF 

’r:pequeno:=0; 

’2’:grande:=0; 

’3’:aHa:=”; 

END; 

6DT0XY(x_pos,y_pos>; 

REPEAT 

READ(KEYBOARD,car); 

IF NOT EQLN(KEYBOARD) 

THEN BEGIN 
IF ORD(car)=8 
THEN BEGIN 
GOTOXY (x_pos,y_pos); 

CASE sw OF 
’1’:BEGIN 

pequeno:=pequeno DIV 10; 
WRITE(pequeño,’ ’); 

BOTOXY (x jos,yjos); 

UNTIL EOLN(KEYBOARD); " 

END; 

WRITE(pequeña); 

END; 

’2’:BE6IN 

grande:=grande DIV 10; 
NRITE(grande,’ '); 

GOTOXY (kjjds, y_pos); 

WRITE(grande); 

END; 

’3’¡BEGIN 

delete(aHa,LENGTH(aHa),l) 
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WRITE(al-fa,’ ’); 

GOTOXY (x_pos, y jos); 

WRITE(alia); 

END; 

END; 

END 

ELSE BEGIN 
IF sw IN [’1Y2’] 

THEN BEGIN 

IF car IN [’0\.’9’] 

THEN BEGIN 
IF sw=’l’ 

THEN pequeño:=pequenot10+0RD(car)-48 
ELSE grande:=grandetÍO+ORD(car)-48; 

WRITE(car); 

END 

ELSE WRITE(CHR* (7)); 

END ídel campo nuaerico) 

ELSE BEGIN 
IF car IN I’ 

THEN BEGIN 
st:=’ ’; 
st[13:=car; 

alta:=C0NCAT(alta,st); 

WRITE (car); 

END 

ELSE WRITE(CHR*(7)); 

END; (del campo alfabético) 

END; ísi no tecla de retorno) 

END; íno es RETURN) 

PROCEDURE mena; 

BEGIN 

borrado jantal la; 

WRITELN; 

NRITELNP1 --> carga de datos’); 

NRITELN; 

WRITELN(’2 --> lectura con el nusiero de registro’) 
NRITELN; 

WRITELN(’3 —> lectura con el nombre de diente’); 
NRITELN; 


HRITELN('4 —> «edificación de un registro’); 
WRITELN; 

WRITELN(’5 —> borrado de un registro’); 
WRITELN; 

WRITELN(’9 —> fin del programa’); 

WRITELN; 

READ <que_quiere) ¡WRITELN; 

END; 

PRQCEDURE visual izaci on; ■>» 

BEGIN 

WITH cliente' 1 
DO BEGIN 

GOTOXY <13,4); 

WRITE(diente A .cliente); 

IF tipoO’ ’ THEN WRITE(’ borrado’) 

ELSE WRITE(’ ’); 

GGTDXY(13,6); 

WRITE(dirección); 

GOTOXY(13,8); 

NRITE(ciudad); 

GOTOXY(13,10); 

WRITE (telefono); 

GOTOXY (13,12); ’ 

WRITE(prefijo); 

GOTOXY(13,14); 

WRI TE(colisión); 

END; 

END; 


PRGCEDURE mascara; 

BEGIN 

GOTOXY(0,4); 

WRITE(’el i ente :’); 

GOTOXY(0,6); 

WRITE(’dirección :’); 

GOTOXY(0,8); 

WRITE(’ciudad ;’); 

GOTOXY(0,10); 

WRITE(’telefono :’); 


GOTOXY(0,12); 

WRITE(’prefi jo :’!; 

GOTOXY(0,14); 

WRITE(’colisión :); 

END; 

PRQCEDURE búsqueda; 

BEGIN 

fin:=FALSE; 

SEEK(indice,hash); 

GET(Índice); 
cual:=indice A ¡ 

REPEAT 
IF cual=-l 
THEN fin:=TRUE 
ELSE BEGIN 

SEEK(cliente,cual); 

GET(el lente); 

IF noninativoOcliente'\cliente 
THEN cual:=diente A .colisión; 

I) 

PR0CEDURE calculo; 

BEGIN 

x:-0; 

y:=0; 

F0R n: = 1 T0 LENGTHtnominativo) 

DO BEGIN 

c:=0RD ínominativoCnl); 

IF 0DD(n) THEN x:=x+c 
ELSE y:y+c; 

END; 

rl:=x-((x DIV 256)»256); 
r2:=y-((y DIV 256)1256); 
i:=r2l256+rl 

hash:=TRUNC(z-((z DIV divisor)idivisor!) 
IF hash=0 THEN hash:=divi sor; 

END; 

PRQCEDURE modificación; 

BEGIN 


borrado jDantalla; 

GOTOXY í0,20); 

WRITEf’clave a buscar: ’); 

sw:=’3’; 

x_pos:=23; 

y_pos:=20; 

teclado; 

no»inativo:=aHa; 

calculo; 

búsqueda; 

IF NOT fin 
THEN BE5IN 
mascara; 
visualizacion; 

GOTOXY(0,20); 

WRITEPpulse <ESC> para modificar el campo,’, 
’<RETURN> para continuar’!; 

GOTOXY(13,6); 

READ(respuesta) ¡ 

IF respuesta=CHRí(27) 

THEN BESIN 
60T0XY(13,6); 

WRITEP ’); 

sw:=’3 ! ; 

x_pos:=13; 

y_pos:=ó; 

teclado; 

cliente'', dirección: =alfa; 

END; 

GOTOXY(13,8); 

READ(respuesta); 

IF respuesta=CHRt(27) 

THEN BEGIN 
GOTOXY(13,8); 

KRITEC ’); 

sw:=’3’; 

x_pos:=13; 

y_pos:=8; 

teclado; 


cIiente A .ciudad:=aHa; 

ENG; 

GOTOXY(13,10); 

READ(respuesta!; 

IF respuesta=CKRi!27) 

THEN BEGIN 
GOTOXY(13,10); 

WRITEC ’); 

sw:=’2’; 

x_pos:=13; 

yjos:=10; 

teclado; 

cliente A .teletono:=grande; 

END; 

GOTOXY í13,12); 

READ(respuesta); 

IF respuesta=CHRS(27) 

THEN BEGIN 
GOTOXY(13,12); 

WRITEC 
s*:=’3’; 
x_pos:=13; 
y_pos:=12; 
teclado; 

diente A .preíijo:=aHa; 

END; 

SEEK(eliente,esto); 

RUT(cliente); 

END 

ELSE BEGIN 
GOTOXY(0,20); 

NRITEI’no existe este registro,pulse <RETURN>’); 
READLN; 

END; 

END; 

PROCEDURE borrado; 

BEGIN 
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borrado_pantalla 
GOTOXY(0,20); 

WRI TE(’el ave a buscar’); 

REñDLN(norninativo); 

calculo; 

búsqueda; 

IF NOT fin 
THEN BEGIN 
mascara; 
visualizacion; 

GOTOXY(0,20); 

WRITE(¿quiere borrar 1□?(S/N)’); 

READ(respuesta); 

IF respuesta IN t’s’,’S’l 
THEN BEGIN 
cliente".tipo:=’C’; 
SEEK!cliente,cual); 

PUT(cliente); 

END; 

END 

ELSE BEGIN 
GOTOXY(0,20); 

WRITEPno existe este cliente,pulse’); 

END; 

END; 

F'ROCEDURE nombre; 

BEGIN 

GOTOXY(0,20); 

WRITE(’nombre del cliente :’); 

sn:= 5 3’ 

x_pos:=32; 

V_pos:=20; 
teclado; 

nominativo: =aí -f a; 

calculo; 

búsqueda; 

IF NOT fin 
THEN BEGIN 
borrado jantalla; 
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mascara; 

visualizacion; 

GOTOXY(0,20); 

WRITE(’pulse <RETURN> para continuar’); 

READLN; 

END; 

ELSE BEGIN 
GOTOXY(0,20 

WRITEPno existe este cliente,pulse <RETURN>’) 
READLN; 

END; 

END; 

PROCEDURE lista; 

BEGIN 

fin:=FALSE; 

IF (inicio<actual) 

AND (i nicio>0) 

THEN BEGIN 

SEEK (cliente,inicio); 

6ET(cliente); 
inicio:=SUCC(inicio); 

END 

ELSE fin:=TRUE; 

END; 

PROCEDURE lectura; 

BEGIN 

GOTOXY(0,20); 

WRITEPnumero del primer registro: ’); 

sw:='r; 

x_pos:=32; 

ypos: =20; 

teclado; 

inicio^pequeno+l 
GOTOXY(0,20); 

WRITE(’numero del ultimo registro: ’); 

sm=’l’; 

x_pos:=32; 

ypos:=20; 

teclado; 


alt:=pequeno+l; 

IF alt>actual-1 THEN alt:=actual-1; 
lista; 

IF NDT Fin 
THEN REF'EAT 
borrado_pantalla; 
mascara; 
visualizacian; 

GOTDXY (0,20); 
lista; 

WFfITE{’<ESPACIO> para continuar,’, 

’<ESC> para terminar’); 

READirespuesta); 

UNTIL (respuesta=CHR*(27)) 

OR Fin 

OR (imcio>alt+l!; 

END; 

PRQCEDURE carga; 

BEGIN 

borrado_pantalla; 

WRITELN!’1 a carga parte con el numero’, 
actual-1!; 

IF actual>2 
THEN BEGIN 

SEEK(cliente,PRED(actual)); 

6ET ¡el i ente); 

WRITELN(’el registro anterior escrito’, 

’es el siguiente:’); 

mascara; 

visualizacion; 

WRITELN; 

END; 

WRITELN(’pul se <RETURN> para iniciar la carga’); 
READLN; 

REPEAT 

borrado_pantalla; 

GOTOXY(0,20); 

WRITELN(’para terminar,responda ’zzzz" a la’, 
'petición del nombre del cliente’); 


I mascara; 

x_pos:=13; 

teclado; 

nominativo:=alFa; 

IF nominativoO’zzzz’ 

THEN BEGIN 
IF actual>ultimo 
THEN BEGIN 

WRITE(’no puedo seguir.se ha superado’, 

’la dimensión maxima del Fichero.’, 
'pulse <RETURN>’); 

READLN; 

EXIT (carga); 

END; 

calculo; 

búsqueda; 

IF NOT Fin 
THEN BEGIN 
GOTDXY(0,20); 

WRITE(’(ESPACIO) para seguir,<ESC> para terminar’); 
READ(respuesta); 

WRITE(’este cliente ya existe.no puedo’, 
'insertarlo.pulse <RETURN>’); 

READLN; 

EXIT(carga); 

END; 

» WITH cliente-' 

DO BEGIN 

cliente:=no«inativo; 
sw:=’3’; 
x _pos:=13; 
y_pos:=6; 
tecladc; 

direccion:=alFa; 

5W.- -j j 

x_poe:=13; 

y_pos:=B; 

teclado; 
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ciudad:=alfa; 
s»:=’2’; 
x_pos:=13; 
y_püs:=10; 
teclado; 

te!efono:=grande; 
sw:='3’; 
x_pos:=13; 

Y_Pos: =12; 
teclado; 
prefijo:=alfa; 
tipo:=’ 

SEEK(indice,hash); 

GET(Índice); 
colisión:=índice"; 
indice A :=actual¡ 

SEEK(índice.hash); 

PUT (indice); 

SEEK(cliente,actual); 

PUT(cliente); 
actual:=SUCC(actual); 
pri®ero:=actual; 
máximo:=ulti®o; 

SEEK(el i ente,1!; 

PUT(el i ente); 

END; (de la with cliente) 
END; (si cliente) 

UNTIL nominativo=’zzzz’; 

END; 

BE5IN 

RESET(indi ce,’ indice.dat’); 

RESET(cliente,’el iente.dat’); 

SEEK(eliente,1); 

GET(cliente); 
actual:=cli ente*.primero; 
ultiiio:=cliente A . máximo; 

FlEPEAT 

menú; 

CASE que_quiere QF 
’1’:carga; 

’2’:lectura; 


’3’¡nombre; 

’4’¡modificación; 
’5’¡borrado; 

END; 

UNTIL que_quiere=’9’; 
CIOSE (indice.LOCK); 
GLOSE íel iente.LOCK); 
END. 


HAS_COMPACT A 

PROGRAM has_ca«pacta; 
COST 

divisor=7; 

TYPE 

el i=REC0RD 

CASE B00LEAN 0F 


TRUE:(cliente 

STRINGC311 

dirección 

STRINGC33) 

ciudad 

STRINGC153 

telefono 

INTEGER[8) 

prefijo 

STRINGC41; 

tipo 

CHAR; 

colisión 

INTEGER); 

FALSE:(primero 

INTEGER; 

máximo 

INTEGER); 

END; 

viejo,cliente:FILE 0F cli 
indice:FILE 0F INTEGER; 
nominativa:STRINGC313; 
hecho:B00LEAN; 
x,y,rl,r2,z:INTEGERC81; 

l 


actusl,hash,c,n, ultimo:INTEGER; 

PROCEDURE calculo; 

BE6IN 

«:= 0 ; 

y:=0; 
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FOR n:=! TO LEN6TH(nominativo) 

DO BE5IN 

c:=ORD(nominativoün]); 

IF ODDÍn! THEN x:=x+c 
EL3E y:y+c; 

END: 

rl:=x-((x DIV 256X256); 
r2:=y-((y DIV 256)1256); 
z:=r2!256+rl 

hash:=TRUNC(z—((z DIV divisorítdivisor)); 
IF hash=0 THEN hash:=divisor; 

END; 

8EGIN 

RESET(viejo,'cliente.vie’); 

RESET(indice,’ indice.dat’); 

RESET(cliente,’ cliente.dat’ ); 

SEEK(viejo,1); 

GET(viejo); 

SEEK(el i ente, 1); 

GET(cliente); 

ul ti 0 ío: =cl i ente" , max i mo; 

i:=viajo'.primero; 

j:=2; 

GET(viejo); 
actual:=2; 
k:=2; 

REPEAT 
WITH viejo' 

DO BEGIN 

IF tipo=’C’ 

THEN WRITELNÍcllente:15,’ borrado’) 

ELSE BEGIN 

k:=k+l; 

WRITELNÍcli ente: 15); 
cliente', di entendiente; 
diente'.direccicn:=direccion; 
el i ente'.ciudad:=ciudad; 
di ente', teletono: =telef ono; 
diente', preíi jonpret'ijo; 
diente'.tipon’ ’; 
nominativo:=viejc'.diente; 
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calculo; 

SEEK(indice,hash); 

GET (Indice); 

c1 iente'.col i sien:=indice'; 
indice':=actual; 

SEEK(indice,hash); 

PUT(indica); 

SEEK(eliente,actual); 
actual:=actual+1; 

END; 

j:=j+l; 

6ET(viejo); 

IF actual-Dultino 
THEN BEGIN 

WRITELN(’-hay ’,actual-!,’ registros activos’, 
’en un fichero gue los prevee’, 
ultimo-i,’! ’!; 

WRITELN(’no puedo proseguir.’); 

WRITELN(’pul se <RETURN>’); 

REfiDLN; 

EXIT(program); 

END; (de la with viejo'} 

UNTIL j>=l; 

SEEK(eliente,1); 

GET(cliente); 
diente*,primero:=actual; 

SEEK(el i ente,1>; 

PUT(cliente); 

CLOSE id iente); 

GLOSE(indice); 

CLOSE(viejo); 


A L _PREPARA 

PROGRñü aijrepara; 

TYPE 

di=REC0RD 
’CfiSE BODLEAN OF 

TRUE:(cliente :STRINGC31]; 
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dirección:STRIN5C333; 
ciudad :SIRINGE 15]; 
tele-fono :ÍNTE6ERC83; 
prefijo :STRINGC4]; 
tipo :CHAR; 
izquierdo:INTEGER; 
derecho :INTEGER); 

FALSE:(primero ¡INTEGER; 

maxiso ¡INTEGER); ^ 

END; 

VñR 

el i ente: FILE OF di; 
x,y,z:INTEGER; 
actual,ultimo:INTEGER; 

BEGIN 

REWRITE(cliente, 'diente, dat’); 

WRITE(’¿de cuantos registros estara conquesta’, 
'el fichero?’); 

READLNíultiiiio); 

WITH cliente' 

DO BEGIN 
priisero: =2; 
maxiija:=ultiino+l; 

PUT(cliente); 

PUT(cliente); 
el xente:=”; 
dirección:^”; 
ciudad:=”; 
telefono: = 0 ; 
prefijo:=’0000’; 
tipo:=’ ’; 

FOF: X:=í TG ultimo DO PUT(cIiente); 

END; 

CLOSE <cíi ente,LOCK); 

END. 


AL_GESTION 

PRGGRAH al_gestion; 

TYPE 

eli=REC0RD 

CASE BOOLEAN OF 
TRUE:(cliente ¡5TRINGÍ31]; 
direccíon:STRIN6E333; 
ciudad :STRIN6E153; 
telefono :INTEBERE83; 
prefijo ¡STRINGC4]; 
tipo :CHAR; 
izquierdo:INTEGER; 
derecho ¡INTEGER); 

FALSE:(primero ¡INTEGER; 
máximo ¡INTEGER); 

END; 

VAP 

el i ente:FILE OF cli; 
hecho,enc,fuera,fin:BOOLEAN; 
partida,termino,alfa,nominativo:STRIN5E331; 
car,s«,que_quiere:CHAR; 
x,y,z,j:INTEGER; 
st:STRINGCl]; 
grande:INTEGERE153; 

p, ib, x_pos,y_pos, esto, inicio, alt, pequeño, 
prexiso,actual,ultimo: INTEGER; 

PRGCEDURE borrado_pantalla; 

BEGIN 

WRITE(CHR$(28)); 

END; 

PROCEDÜRE teclado; 

BEGIN 

CASE sw OF 

’1’:pequeño:=0; 

’2’:grande:=0; 

’3’:alfa:=”; 

END; 

60T0XY(x_pos,y_pos); 
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REPEflT 

READ(KEYBOARD,car) j 
IF NCT EOLN(KEYBOARD) 

TKEN BEGIN 
IF DRD(car)=6 
THEN BEGIN 
GOTOXY(x_pos,y_pos); 

CASE sw OF 
’1 1 : BEGIN 

PEQUEÑO:=PEQUEN0 div 10; 
NRITE(PEQUEÑO,’ ’); 

GOTOXY(xpos,y_pos); 

WRITE(pequeño); 

END; 

’2’:BEGIN 

grande:=grande DIV 10; 
WRITE(grande,’ ’); 

GOTOXY (:<_pos, y_pos>; 

WRITE(grande); 

END; 

’3’:BEGIN 

DELETE(alfa,LEGTH(alTa),1); 
WRITE(alfa,’ ’); 

GOTOXY (>:_pos,y_pos); 

WRITE(alTa); 

END; 

END; 

END 

ELSE BEGIN 
IF sw INC’1’,’2’] 

THEN BEGIN 
IF car 

THEN pequeño:=pequenotl0*ORD(car)-48 
ELSE grande: =grandet1Ü+0RD(car)-48; 
WRITE(car); 

END 

ELSE WRITE(CHRÍ(7)); 

END (del campo numérico} 

ELSE BEGIN 
IF car INI’ 

THEN BEbIN 


I al -fa: =CDNCAT (alfa.st)¡ 

WRITE(car!; 

EL5E WRITE(CHR$(7)); 

END; (del campo alfabético} 

END; (si no tecla de retorno) 

END; (no es return} 

UNTIL EOLN(KEYBOARD); 

F'ROCEDURE menú; 

BEGIN 

borrado_pantalla; 

WRITELN; 

WRITELNP1 --> carga de datos’); 

WRITELN; 

WRITELN(’2 —> lectura con el numero de registro’); 
WRITELN; 

WRITELN(’3 --> lectura con el nombre de cliente’); 
WRITELN; 

WRITELN!’4 —> modificación de un registro’); 
WRITELN; 

WRITELNí’5 --> borrado de un registro’); 

¡ WRITELN; 

WRITELN(’9 —> fin del programa’); 

WRITELN; 

READ(que_quiere);WRITELN; 

END; 

PROCEDURE visualizacion; 

BEGIN 

WITH diente* 

DO BEGIN 

GOTOXY(13,4); 

WRITEícliente*.cliente); 

¡F tipoO’ ’ THEN WRITE(’ borrado’) 

ELSE WRITE(’ ’); 

GOTOXY(13,ó); 

WRITE(direccion); 


60T0XY(13,3); 
WRITE(ciudad)j 
GOTQXY(13,10); 

WRITE (tele-fono); 

GOTOXY(13,12): 

WRITE(prefijo); 

GOTOXY(13,14!; 

WRITE íizquierdo); 
GOTOXY(33,14); 

WRITE íderecho)j 
END; 

END; 

PROCEDERE mascara; 

BE5IN 

GOTOXY(0,4); 

WRITE(’eli ente :’) 

GOTOXY(0,6); 

WRITE('direccion :’) 

GOTOXY(0,3)j 
WRITE í’ciudad :’) 

GOTOXY(0,10); 

WRITE!’telefono :’) 

GOTOXY(0,12); 
WRITEÍ’prefijo :’) 

GOTOXY(0,14); 

WRITE!’izquierdo :’) 

GOTOXY(20,14); 

WRITE!'derecho :’) 

END; 

PROCEDURE clave; 

BEGIN 

enc:=FfiLSE; 

-fin: =FALSE; 
esto:=2; 

j:=2; 

WITH cliente A 
DO BEGIN 
REF'EAT 
1F j=0 





TREN BEGIN 
■fin: =TRUE; 
prox i modesto; 

END; 

ELSE BEGIN 
BEEK(el i ente,j); 

GET (diente); 
esto:=j; 

IF npminativo<diente 
THEN j:=i:qüierdo 
ELSE IF no»inativo=diente 
THEN BEGIN 
ene:=TRUE; 
presi®o:=derechoj 
END 

ELSE IF de r echo>0 THEN j:=derecho 
ELSE j:=0; 

END; 

UNTIL ene GR fin; 

END; íde! mi th diente A } 

IF NOT fin 


THEN BEGIN 
SEEK (diente, j); 
GET(cliente); 
END; 


PROCEDURE modificación; 

BEGIN 

borrado._pantaI!a; 

GOTOXY(0,20); 

WRITE<’clave a buscar: ’); 

sw:=’ 3 ’ ; 

x_pos; =23; 

y_pos;=20; 

teclado; 

nominativo:=alfa; 
clave; 

IF NOT fin 
THEN BEGIN 
mascara; 
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visualizacion; 

50TGXV SO,IB); 

NR'ITEí’pulse <ESC> para isodiFicar al campo,■’, 
’ÍRETURN) para continuar’); 

BOTOXYí.13,6); 

READ(respuesta); 

IF respuesta=CHRÍ(27! 

THEN 5E5IN 
END; 

6GT0XY<!3,3); 

READírespuesta); 

IF respuesta=CHR$(27> 

THEN BESIN 
GGTDXY(13,6); 

WRITEÍ’ ’); 

sw:=’3’; 

x_pos: = 13; 

y _pos;=6; 

teclado; 

cliente A ,dirección; 

END; 

60TDXY(13,8); 

READírespuesta);. 

IF respuesta=CHRí(27); 

THEN BESIN 
SOTOXY(13,8); 

WRITEí’ ’); 

5w:=’3'; 
x_pos:=13; 
y_pos:=8; 
teclado; 

cliente'.ciudad:=al fa; 

END; 

B0T0XYÍ13,10); 

READírespuesta); 

IF respuesta=CHR$(27) 

THEN BESIN 



SOTOXY (13,10); 

WRITEÍ’ ’); 

sw:=’2’ ; 

«_pos:=13; 
y_pos:=10; 
teclado; 

cliente A .teleFono:=grande; 

END; 

SOTOXYi 13,12); 

READírespuesta); 

IF respuesta=CHRt(27) 

THEN BESIN 
BOTOXY(13,12); 

WRITEÍ’ ’); 

sw:=’3’; 

x_pos:=13; 

y _pos:=12; 

teclado; 

diente"', preíi .io:=alta; 

END; 

SEEKÍcliente.esto); 

RUT(cliente); 

READírespuesta); 

IF respuesta=CHR$(27) 

END 

ELSE BEGIN 
SOTOXY(0,20); 

WRITEÍ’no existe este registro,pulse <RETURN>’); 
READLN; 

END; 

END; 

PROCEDURE borrado; 

BESIN 

borradojantalla; 

SOTOXY(Ó,20); 

WRITE<’clave a buscar: ’); 
sw:=’3’; 
x_pos:=23; 
y_pos:=20; 
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teclado; 

nominativo:=alta; 
clave; 

IF NOT fin 
THEN BE6IN 
mascara; 
visualizar ion; 

GOTOXY(0,20); 

WRITE(’¿quiere borrar 1 o' T '(S/N)’); 

READ(respuesta); 

IF respuesta IN t’S’,’s’] 

THEN BESIN 
cliente".tipo:=’C’ 

SEEK(cliente,esto); 

RUT(cliente); 

END; 

END 

ELSE BESIN 
bCTOXY(0,20); 

HRITEí'no existe este registro,pulse <RETURN 
REftDLN; 

END; 


PROCEDURE búsqueda; 

BESIN , y 
WITH cliente" 

DQ BESIN 

■fuera: =FALSE; 

REPEAT 

esto: =ftBS (prox i ¡nc); 

SEEK ícli ente,esto); 

SET(cliente); 

¡F íizquierdo< >0)* AND íproxiao>=0) 
THEN próximo:=izquiardo; 

ELSE BESIN 
fuera:=TRUE; 
próximo;=derecho; 

END; 

UNTIL fuera; 

END;{with cliente") 
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PROCEDURE nombre; 

BESIN 

GGTOXY(0,20); 

NRITES’nombre del primer cliente :’); 

sa:=’3’; 

x jos: =32; 

y jos: =20; 

teclado; 

partida:=alta; 

GOTOXY(0,20); 

WRITE<'nombre del ultimo cliente :’, 


x jos: =32; 
y jos:=20; 
teclado; 
termino: =al f a; 
nofflinativo:=parti da; 
clave; 

IF fin 
THEN BESIN 
ousqueda; 
fin:=FALSE; 

END; 

REPEAT 

borradojantalla; 

mascara; 

visualizacion; 

GOTOXY(0,20!; 
esto:=proximo; 

IF estoOÜ THEN búsqueda; 
NRITE!’<ESPACIO> para continuar,’, 
’<ESC> para terminar’); 

READ(respuesta); 

UNTIL írespuesta=CHRí(27)) 

0Ríesto=0) 

QR (cliente", el i enteHemno) 

END; 

PROCEDURE actjudo; 

BESIN 


WITH diente* 

DO BESIN 

hecho:=FALSE; 

TF actual=2 

THEN BEGIN (si primer registro) 
izquierdo:=0; 
derecho:=0; 

END 

ELSE BE6IN 

p:=2; 

REPEAT 

SEEK(c1 i ente, p); 

GETÍcliente); 

IF nominativc>diente 
THEN BESIN 
IF derecho>0 
THEN p:=derecho 
ELSE BEGIN 
hecho:=TRUE; 
m:=derecho; 
derecho:=actual; 

SEEK(el i ente,p); 

PUT(cliente); 
derecho:=m; 
izquierdo:=0; 

END; 

END 

ELSE BEGIN 
IF izquierdcOO 
THEN p:=izquierdo; 

ELSE BEGIN 
hecho:=TRUE; 
izquierdo:=actual; 
5EEK(diente,p); 

PUT(cliente); 
izquierdG:=0; 
derecho:=-p; 

END; 

END; 

UNTIL hecho; 

END; 
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actual:=actual+l; 

END; (with diente*) 

END; 

PROCEDURE lista; 

BEGIN 

■fin: =FALSE; 

IF (inicio<actual! 

AND (inicio>0) 

THEN BESIN 

SEEK(cliente,inicio); 

GETIcliente); 

inicio:=SUCC(inicio); 

END 

ELSE fin:=TRUE; 

END; 

PROCEDURE lectura; 

BEGIN 

GOTQXY(0,20); 

HRITEÍ’numero del primer registro: ’); 

s«:=’l’j 

:<_pos: =32; 

y jos: =20; 

teclado; 

inicio:=pequeno+l 

G0TOXY(0,20); 

WRITE(’numero del ultimo registro: ’); 

teclado; 

alt:=pequeno+l; 

IF alt>actual-l THEN alt:=actual-l; 
lista; 

IF NOT fin 
THEN REPEAT 
borradojantalla; 
mascara; 
visualizacion; 

GOTOXY(O,20); 
lista; 

HRITE(’<ESPACIO> para continuar,’, 
’<ESC> para terminar’); 
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REfiD(respuesta); 

UNTIL !respuesta=CHR$(27)) 

OR fin 

OR (inicio)alt+l); 

PROCEDüRE carga; 

BE6IN 

borrado_pantaila; 

NRITELNCla carga parte con el numero’, 
actual -1); 

IF actual>2 
THEN BEGIN 

SEEK(cliente,PRED(actual))¡ 

6ET(cliente); 

NRTTELNÍ’el registro anterior escrito’, 

’es el siguiente:’); 

mascara; 
visualizacion; 

WRITELN; 

WRITELN(’pul se CRETURN) para iniciar la carga’); 
READLN; 

REPEAT 

borrado_pantalla; 

50T0XY(0,20); 

WRITELN('para terminar,responda "zzzz" a la’, 
'petición del nombre del cliente’); 

lascara; 
x_pos:=13; 
teclado; 

nominativo:=alfa; 

IF nosiinativoO’zzzz’ 

THEN BEGIN 
IF actual>ultimo 
THEN BEGIN 

WRITE i’no puedo seguir.se ha superado’, 
’la dimensión saxisa del fichero.’, 
'pulse <RETÜRN>’¡; 


READLN; 

EXIT(carga); 

END; 

clave; 

IF NOT fin 
THEN BEGIN 
GQTDXY(0,20); 

WRITE(’este cliente ya existe.no puedo’, 
'insertarlo.pulse <RETURN>’); 
READLN; 

EXIT(carga); 

END; 

WITH diente A 
DO BEGIN 


act_nudo; 

di ente: =nomi nat i vo; 
sw:=’3’; 
x_pos:=13; 
y_pos:=¿>; 
teclado; 

direccion:=alf a; 
sw:=’3’; 
y_pos:=8; 
teclado; 
ciudad:=alfa; 
sw:=’2’; 
y jos:=10; 
teclado; 

telefono:=grande; 
sw:=’3’; 
x_pos:=13; 
y_pos:=12; 
teclado; 
prefijo:=alfa; 
tipo:»’ ’; 

3EERÍcliente,actual-l); 
RUT(cliente); 
primero:=actual; 
maximo¡=uItií«o; 
SEEKÍcliente,1); 

PUT(eliente); 


END; (de la mí th cliente) 

END; (si cliente) 

UNTIL no(3inativo= , 22zz’; 

END; 

BE5IN 

RESET (cliente, 'diente, dat’); 

SEEK(el i ente,i); 

GET (el i ente); 
actual:=cliente\priaiero; 
ultimo:=cliente".máximo; 

REF’EAT 

menú; 

CASE que_quiere OF 
’1’:carga; 

’2’:lectura; 

’3’¡nombre; 

’ : modi-f i cacion; 
'Emborrado; 

END; 

UNTIL que_quiere=’9’; 

CLOffE(cliente.LOCK); 

END. 

A1_ _C O M P A C T A 

PftOSftAM al_co*pacta; 

TVPE 

eli=REC0RD 

CASE BOOLEAN OF 
TRUE:(cliente :STRINGt311; 
direccion:STRIN6I331; 
ciudad :STRINGC151; 
telefono :INTEGERE83; 
prefijo :STRINGE43; 
tipo :CHAR; 
izquierdo:INTEGER; 
derecho :INTEGER); 

FALSE:(priaero :INTEGER; 
manto : INTEGER»; 

END; 
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PROCEDURE act_nudo; 

BEG1N 

BITH diente* 

DO BEGIN 

hecho:=FALSE; 

IF actual=2 

THEN BE6IN ísi priter registro} 
izquierdo: 1 !); 
derecho:=0; 

END 

ELSE BE6IN 
p:=Z; 

REPEAT 

SEEK(cliente,p); 

GET(eli ente); 

IF nosinativo>diente 
THEN BEEIN 
IF derecho)!) 

THEN p:=derecho; 

ELSE BEGIN 
hecho:=TRUE; 

»:=derecho; 
derecho:=actual; 

SEEK(cliente,p); 

PUT(cliente); 

derecha:-*; 

izquierdo:=0; 

END; 

END; 

ELSE BEGIN 

IF I2QUIERDOOO 
THEN p:=izquierdo 
ELSE BEGIN 
hecho:=TRUE; 
izquierdo:=actual; 
SEEKidiente.p); 

PUT (cliente); 
izquierda:=0; 
derecho:=-p; 

END; 

END; 

UNTIL hecho; 

END; 

actual:=actual+l; 

END; ÍUITH índice*) 


DAR viejo, el lente: FILE OF di; 
no«inativo:STRINGí31I; 
hecho:BOOLEAN; 

u,p,x,y,z,actual,ultito:INTEGER; 


BEGIN 

RESET (viejo, 'diente, vie’); 
RESET (cliente,'diente.dat’)j 
SEEK(diente,l); 

GET (diente)¡ 
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SEEK(viejo, ¡); 

GET(viejo); 
x: =c2 1 ente'-, máximo; 
y:=viejo*.primero; 

GET(v¿ eje)j 
actual:=2; 
z:=2j 
REPEflT 
WITH viejo* 

DO BESIN 

IF tipo=’C’ 

THEN WRITELN(el i ente:15,’ borrado’) 

ELSE BEGIN 
IF actual-I ) x 
THEN BEGIN 

WRITELNí’hay ’,actual-1,’ registros’, 
'activos enun Fichero que los’, 
’prevee ’,x,’!’)¡ 

WRITELN(’no puedo proseguir’); 
NRITELNCpuIse <RETL)RN>’); 

REflDLN; 

EX IT(prograa); 

END; 

ELSE BEGIN 
no«inativo:=cliente; 
act(nudo; 
cliente*.cliente 
chente*.dirreccion:=direccion; 
cliente*.ciudad:=ciudad; 
cliente*.teleFono:=te¡eíono; 
cliente*.pre(ijo:=pre(i jo; 
cliente*.tipo:»’ ’; 

WRITELN(cliente:15); 

SEEK(cliente,actual-l); 

PUT¡cliente); 
actual=actual+l 
END; 

END; 

z:=z+l: 

GET ¡viejo); 

END; (de la with viejo*} 

UNTIl r>=y; 

SEEK(cliente,1); 

GET(cIier.te); 
di ente*.prinero:=actual; 

SEEK(cliente,1); 

PUT(cliente); 

CLOSE(eliente,LOCK); 

CLOSE ¡viejo); 

END. 
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a complejidad del tratamiento (adquisi¬ 
ción, actualización y acceso) de datos es 
más que considerable, lo cual implica 
también que los programas que se encar¬ 
gan de hacer posibles todas estas opera¬ 
ciones son igualmente complejos. 

En este segundo volumen de la Bibliote¬ 
ca Básica Informática dedicado a los ban¬ 
cos de datos vamos a finalizar el estudio de los progra¬ 
mas necesarios para gestionar un banco de datos, desde 
BASIC o Pascal, comenzado en el volumen anterior. Esto 
nos servirá, a la vez, como preparación para el acerca¬ 
miento a uno de los programas comerciales de gestión 
de datos más populares y conocidos: el dBASE (II y III), 
que trataremos en un próximo volumen de la B.B.I. 
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(incluido IVA) 




